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Aodula-2 at its absolute best. It’s a fully integrated development 
nent that takes into account what you need as a programmer. Without leaving 
‘the Editor, you can call the compiler, linker and utilities. 

With Logitech’s Modula-2, you'll have the ability to edit several files at once, 
comparing, window to window, various code modules. You can even move from 
window to window compiling, linking, debugging and running. 

The compiler has the kind of power and room to breathe that you really need in 
today’s complex applications. It is as easy to use as Turbo Pascal, without your 
programs being limited to 64K of code. 

At your command will be the libraries of modules that make Modula-2 a 
programmer’s dream. It has essentially the same structure as Pascal with the major 
addition of a library organization of code modules that allow you to put together 
programs on a solid, block-by-block, foundation of proven code. 

Whether you're working with a module of your own making, or one of the many in 
our library, you'll find the system by which each module is identified, described and 
stored an organizational masterpiece. And that’s at the heart of Modula-2. 

Underneath the sophisticated system is a Modula-2 compiler that is the result of 
years of development and proven use in industry. We run on the Vax", and we run on 
the IBM PC. And the code is portable-from one to the other. 


Best of all... you can have it right now! 


Complete with Editor, 
Run Time System, Linker, Cursor-posi- 
tioning debugger, 8087 Software Emula- 
tion, BCD module, Logitech’s extended 
library, Utility to generate standard .EXE 
files, Turbo Pascal (and standard Pascal, 
too) to Modula-2 translator (included 
without charge until 8/1/86), and much, 
much more! 


Evenif 
you haven’t yet gotten an 8087 co-pro- 
cessor, you can still use this version. 


For machines with 
512K or more. Takes advantage of the 
larger memory to increase compilation 
speed by 50%! Supports 80186 and 80286 
as well as 8086 and 8088. Includes 8087 
and 80287 support, too. 


Now you can build true win- 
dowing into your Modula-2/86 code with 
ease, too. Very powerful and very full, yet 
only 15K in size. Features virtual screens, 
color support, overlapping windows and a 
variety of borders. 


(source level) Much more 
powerful than just a symbolic RTD. 
Display source code, data, procedure call 
chain and raw memory. Set break points, 
assign values to variables, pinpoint and 
identify bugs in your source. The ultimate 
professional’s tool! 


Features a post-mortem de- 
bugger for static debugging. If a program 
you’ve written crashes at run time, the 
situation is frozen, and you can pinpoint, 
in source, the cause of the error and the 
data at that moment. Also includes a 
disassembler, a cross reference utility and 
a “version” utility that allows conditional 
compilation. 


Automatically selects modules af- 
fected by code changes for quick and 
minimal re-compilation and relinking. 
Even figures out dependencies for you. 


Source code for our major library 
modules is now available-for customiza- 
tion or exemplification. 

If you need to produce rommable 


code, call our 800 number for further 
information on this package. 





mpiler everybody's 
waiting for... 


To place an order call our special toll free number 


800-231-7717 


in California 


800-552-8885 


Special offer until 8/1/86! 
includes 


$39 


Free! $49.95 value Turbo Pascal translator! 
Now, you can take your library with you! 


I'd like to take the next 
3 logical step in programming. 
Please send my copy of Logitech Modula-2/86 


to the following address: 
OVISA OMasterCard 0 Check Enclosed 


Card Number Expiration Date 


Signature 





Name 





Address 





City 





State 
Here’s the configuration I'd like: 
OU Logitech Modula-2/86 $89 


0 Logitech Modula-2/86 $129 UJ Run Time Debugger $69 
with 8087 support (source level) 


O Logitech Modula-2/86 Plus $189 CO Utilities Package $49 


Please add $6.50 for shipping O Make Utility $29 
and handling. OD Library Sources $99 


Zip Phone ( $$ $$ $$$ 
And include the indicated items: 
CO Window Package $49 








Total enclosed $ 
(California residents, please add applicable sales tax) 


LOGITECH 


LOGITECH, Inc. 

805 Veterans Boulevard 
Redwood City, California 94063 
Telephone (415) 365-9852 
For European pricing, please contact: 
LOGITECH SA 
Box 32, CH-1143 Apples, Switzerland 
Telephone 41 (21) 774545 


Please call our 800 line for: 0 Information on our *VAX version © Site License and University Discounts 0 Dealer and Distributor information 


Circle no. 257 on reader service card. 


*Turbo Pascal is a registered trademark of Borland International 





Our Macro Assembler has long been the 
most complete package on the market. Now 
its also the fastest. Three times faster than 
before. And faster than anyone else. Period. 

Of course, it's still the most powerful assem- 
bler on the market. It supports the standard 
8086/8087 opcodes. And the new 186/286/ 
287 instruction set. So you can make the 
most of the new machines. 

Debugging is quicker, too. Thanks to our 
interactive symbolic debugger, SYMDEB. 
Now you can refer to variables and source 
code instead of getting lost in hex dumps. 
And this debugger also works with Microsoft 
languages like C, FORTRAN and Pascal. So 
now you can set breakpoints and trace exe- 
cution — using source code for reference. 
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Cut your development time dramatically. Microsoft Macro Assembler’s 
Symbolic Debug utility lets you debug your Macro Assembler programs, or 
debug your Microsoft C, FORTRAN or Pascal programs using your original 
source code or the resulting disassembly. For example, you can set break- 
points on line numbers and observe the contents of variables or expressions. 


SYMDEB is just part of our complete set 
of utilities. Tools that make programming as 
fast as it should be. There are the linker and 
library managers you'd expect. Plus a new 
version of MAKE, our maintenance utility, 
with improvements like macro expansions 
and inference rules. 

Weve also revised the manuals. Our new 
Macro Assembler has a lot to offer, so we 
added more examples. Now our manuals are 


Macro Assembler 


The quickest. Bar none. 


not only thorough, they’re clearer than ever 
before. 

For quick development and assembly, the 
choice is obvious. Microsoft. There's nobody 
faster. 






Microsoft® Macro Assembler Version 4.0 for MS-DOS® 


Macro Assembler 

* Fastest macro assembler for MS-DOS computers. 

¢ Supports the 8086/8087/8088 and the 186/286/287. 

* Define macros. 

* Conditional assembly. 

* Optional case sensitivity for symbols. 

* 100% upward compatibility from earlier versions of both the 
Microsoft and IBM® Macro Assemblers. 

Interactive Symbolic Debug Utility 

* Source level debugger for programs written in Microsoft 
Macro Assembler, C Compiler, FORTRAN, and Pascal. 

* Screen swapping helps debug highly visual applications. 

*Set breakpoints on line numbers and symbols. 

* Single step to follow program execution. 

* Disassemble object code. 

* Display and modify values. 

¢Full I/O redirection. 

Program Maintenance Utility 

Rebuilds your applications after your source files have 
changed. 

¢ Similar to UNIX™ MAKE utility. 

¢ Supports macro definitions and inference rules. 

Library Manager 

* Create, organize and maintain your object module libraries 
created with Microsoft languages. 

* Set page size from 16 to 32678, to create compact and 
granular libraries. 

Object Code Linker 

* Simple overlaying linker combines relocatable object 
modules created using Microsoft languages into a single 
program. 

* Load Map generation. 

+ Specify from 1 to 1024 segments. 

Cross-Reference Utility 

* Creates a cross-reference listing of the definitions and 
locations of all symbols used in an assembly language 
program, which makes debugging programs easier. 

Microsoft EXE File Compression Utility 

* Packs EXE files for smaller size on disk and faster loading 
at execution time. 

Microsoft EXE File Header Utility 

* Display and modify EXE file header, allowing you to tune 

the stack size and initial memory allocation. 








































For the name of your nearest Microsoft 
dealer call (800) 426-9400. In Washington 
State and Alaska, call (206) 882-8088. In 
Canada, call (416) 673-7638. 


Microsott 


The High Performance Software™ 


Microsoft and MS-DOS are registered trademarks and The High Performance Software is a 
trademark of Microsoft Corporation. IBM is a registered trademark of 
International Business Machines Corporation. UNIX is a trademark of AT&T Bell Laboratories. 


Why your next generation of 
products should use our 5th 
generation tools. 






Arity’s integrated family of programming tools allows you to combine software written in 
Arity/Prolog, the best of the fifth generation languages, with Arity SOL, the best of the 
fourth generation languages, and with conventional third generation languages such as 
C or assembly language to build your smarter application. 


You can use Arity/Prolog to build expert systems using the Arity Expert Systems 
Development Package. Or to build natural language frontends. Or to build intelligent 
information management systems. Arity/Prolog lets you build advanced technology into 
your vertical applications package. 


And more... 


That's not the whole story. Arity’s products are all designed to be fast, powerful, serious. 
Each of our products contains unexpected bonuses. Such as a one gigabyte virtual 
database integrated into Arity/Prolog. The most powerful of its kind on a PC. 


Quality first. Then price. 


In order to be the best, we had to prove it to our customers. Our tradition of quality 
software design is reflected in every product we sell. Quality first. ‘Then price. And we 
always provide the best in customer support. 


Our products are not copy protected. We do not charge royalties. We offer generous 
educational and quantity discounts. And we have a 30 day money back guarantee. 


‘Try us to know that we keep our promise on commitment to quality and reliability. ‘Iry 
us by using our electronic bulletin board at 617-369-5622 or call us by telephone—you 
can reach us at 617-371-2422. 


Or fill in this coupon. Whether you order today or not, let us send you full descriptions 
of our integrated family of Arity products. 








arity Please complete this form to place your order and/or request detailed information. 
Quantity — [nfo only 
Aritv/Prolog Compiler and Interpreter V4... ee eee ee $795.00 
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and all MS-DOS ‘TOTAL AMOUNT (MA residents add 5% sales tax) (These prices include shipping to all U.S. cities) 8 
compatibles. NAME 








CITY/STATE/ZIP 
‘TELEPHONE 
Payment: F] Check 0 PO 1] AMEX C) VISA CJ MC 














Card # Exp. date 
Circle no. 121 on reader service card. Signature is OB ee eae 
ARETY CORPORATION © 358 BAKER AVENUE ¢ CONCORD, MA 01742 ————— arity 
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About the Cover 
Claudia Steenberg-Majewski 
pulled this collage out of the 
blue. 


This Issue 

This month, we present some 
relatively painless ways of ensur- 
ing error-free telecommunica- 
tions transmissions. We review 
Jef Raskin’s SwyftCard, a new 
environment for the Apple Ile 
and IIc. Especially noteworthy 
about SwyftCard is that its user 
interface is philosophically dif- 
ferent from that of the Macin- 
tosh. Namir Shammas kicks off 
our Structured Programming 
column with an invitation to the 
readers. Michael Swaine, having 
decided that the back page is his 
to burn from now on, illuminates 
his intentions and lights a candle 
for some of those who have in- 
spired him. 


Next Issue 
In July, we celebrate Forth. 
There will be a proposal for a 
new standard for extended con- 
trol structures, and we'll shed 
some light on how to use win- 
dows in Forth. Also, in casting 
about for a novel application, we 
came up with an implementa- 
tion in which Forth plumbs the 
ocean depths. Michael Ham will 
cover Forth in the July Struc- 
tured Programming, and even 
Ray Duncan will get in on the 
party. For a change of pace, we'll 
review a number of ‘‘turbo”’ 
boards for the IBM PC. 
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WE'RE OUT TO SAVE ONE MILLION 





FRUSTRATED PROGRAMMERS 





You're on a roll, really pumped, 
writing the best code you have ever 
written and then—AAARGHHH! 

Freeze dried in your tracks because 
the language you're using just won't 
let you achieve what you can conceive. 

And you wanted to be a 
programmer. 

So your choices are: 

1) write around the problem by 
creating six pages of emetic code... 

2) leave out that incredible idea 
that really puts your stamp of 
excellence on this program or... 

3) get yourself a world class 
headache (or a stroke) by dropping 
into assembler. 

Whatever you choose, by now you 
feel the language is out to get you— 
because it is. 

Sure, no language i is perfect, but 
you have to wonder, “Am I getting 
all I deserve?” 

And, like money, you'll never 
have enough. 

Pretty dismal, huh? 

We thought so, too. 

So we did something 
about it. 

‘We call it CLARION. 

You'll call it incredible. 

With CLARION you can 
write, compile, run and 
debug complex applications 
in a New York afternoon. 

Even if you’re in Savannah. 

It gives you the power and 
speed to create screens, windows 
and reports of such richness 
and clarity you would never 
attempt them with any other 
language. 

Because YOU would have to 
write the code. 


With CLARION you simply design the 


screens using our SCREENER 
utility and then CLARION writes 
the source code AND compiles 

it for you. 

In seconds. 

Likewise, you can use 
REPORTER to create reports. 
Remember, only CLARION can 
recompile and display a screen or 
report layout for modification. 

And with no time wasted. 

All the power and facilities you 
need to write great programs, faster 






1-800-354-5444 


than you ever dreamed of. 
Programs that are easy to use. 
Programs that are a pleasure 
to write. 
And to you that means true 


_ satisfaction. 


You've coveted those nifty pop-up 
help windows some major appli- 
cations feature. But you can’t afford 
the time and energy it takes to write 
them into your programs. 

That’s the way it used to be. 

So we fixed that, too. 

CLARION HELPER is an inter- 
active utility that let’s you design 
the most effective pop-up help 
screens that you can imagine. And 
they’re “context sensitive; meaning 
you can have help for every field in 
your application. 

Unlike the other micro languages, 
CLARION provides declarations, 
procedures and functions to process 

dates, strings, screens, 
reports, indexed 
ou files, DOS files 
= and memory 


e tables. 
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Imagine making source program 
changes with the CLARION 
EDITOR. A single keystroke 
terminates the EDITOR, loads the 
COMPILER, compiles the program, 
loads the PROCESSOR and 
executes the program. It’s that easy! 

Our data management capa- 
bilities are phenomenal. CLARION 
files permit any number of composite 
keys which are updated dynamically. 

A file may have as many keys as 
it needs. Each key may be composed 
of any fields in any order. And key 
files are updated whenever the 
value of the key changes. 

Like SCREENER and 
REPORTER, CLARION’s FILER 
utility also has a piece of the 
CLARION COMPILER. To create a 
new file, you name the Source 
Module. Then you name the State- 
ment Label of a file structure 
within it. 

FILER will also automatically 
rebuild existing files to match a 
changed file structure. It creates a 
new record for every existing 
record, copying the existing fields 
and initializing new ones. 

Sounds pretty complicated, 
huh? 

Not with CLARION’s 
documentation and on-line 
help screens. If you are 
currently competent in Basic, 
Pascal or “C” you can be 

- ~—sr writing CLARION applications 
in a day. In two days you won't 


believe the eloquence of your 
CLARION programs. 

Okay, now for the best part of all. You 
can say it in CLARION for $295.00— 
complete. All you need is an IBM® PC, XT, 
AT or true compatible, with 320 KB of 
memory and a hard disk drive. 


And welll allow a full 30 day evalua- 
tion period. If you’re not satisfied 
with CLARION, simply 
return it in its original condition 
for a full refund. 

If you’re not ready to take advantage 
of this no-risk opportunity, ask for 
our detailed 16 page color brochure. 
It vividly illustrates the elegance of 
CLARION. Consider it a preview of 
programming in the fast lane. 

Either way, the call’s a freebie. 


BARRINGTON SYSTEMS, INC. * P.O. BOX 5580 * POMPANO BEACH, FL 33074 © 305/785-4555 


IBM® isa registered trademark of International Business Machines Corporation. CLARION™ is a trademark of Barrington Systems, Inc. ©1986 Barrington Systems. 
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| thing to you? These _ 
are just two of the _ 
_ ASCH shorthand nota- — 
tions sent over the | 
public on-line net- 
works by modem us- 
_ ers. A whole new cul- 
ture seems to be. 














developing in which people who 


never hear each other's vc 

get to know each other, a wile 
even the most intimate of secrets. An- 
onymity is the rule. You need reveal 
your true identity only if you want 





to. The new teleculture is just one fac-_ 
et of the rapidly growing consumer 


telecommunications industry. 


Recent estimates by various | 
‘sources put the amount of data traffic _ 
on the nation’s phone networks at 30 | 


percent of total usage. In downtown 


it now has more than 250,000 sub- 
scribers and is gaining between 4,000 
and 7,000 new users every month. 
The Source is adding useful new fea- 
tures (such as special interest groups) 
and attracting lots of new subscrib- 


ers. Delphi, People/Link, the WELL | 
(Whole Earth ‘Lectronic Link), Dow | 
Jones, and many others are also | 


growing rapidly. 


New, exotic features seem to be 


among the main selling points for the 
big on-line services. Many boast that 
they can provide more on-line data- 
bases or this encyclopedia or that 
travel reservation Service. Every- 
thing from weather forecasting to as- 


trological predictions seems to be 
available. You can even buy cars, 
boats, and houses on line. 


I cant help but wonder what per- 





on more users send lines of text back 
_and forth in real time. I think the 
next largest amount of time is spent 


This is not necessarily a bad sign—in 


not be getting a very accurate picture 
of what to expect from some of the 


being led to join on-line services by 


| reflect the reality. Why do only a few 
Manhattan, data traffic is thought to_ 
be around 50 percent. Within a few — 
years, those percentages will rise 
dramatically. Most of the new use is" 
business related, but the consumer | 
market is also expanding rapidly. Re- 
cently, CompuServe announced that 


even celebrate) the features that peo- 


| nados. The symbol °: -)’ is a happy 
face turned on its side and is append- 


| ings or humorous intent, as in 





centage of the ser- 
vices offered are ac- 
tually used. What 
part of the revenues 
of the big systems ac- 
their “useful” 
most of the on-line 
time is spent in inter- 
active ‘chat’ mode, 
in which two or 


reading messages in SIGs and forums. 
fact, I think it’s a sign of the new cul- 
ture emerging. But the novice may 
current advertisements. People are 
grand visions that don't necessarily 
of the on-line services advertise (and 
ple actually use most? __ 

By the way, “MORF’ means ‘male 
or female?” and is used as an initial 
greeting by many chat mode afficio- 
ed to a sentence to indicate good feel- 
“You're such a nerd! :-)’’ Sometimes 
the symbol “‘;-)’’ is used to show that 


the sender is oa Can you guess 
what “=-0" means? 


DDJ is always interested in your ar- 


ticle ideas. Right now were particu- 
larly interested in articles for Sep- 
tember (algorithms) and October 
(80286 and 80386). Give me a call at 
(415) 366-3600 if youve got a nifty 
idea, or send me a proposal (with an 
outline, please) at the address in the 
masthead. 





Nick Turner 
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& PC-DOS, MS-DOS, CP/M-86, Macintosh, Amiga, Apple II, CP/M-80, Radio Shack, 
Commodore, XENIX, ROM, and Cross Development systems 


Manx Aztec C86 
‘A compiler that has many strengths ... 
for serious work” 

Computer Language review, February 1985 


Great Code: Manx Aztec C86 generates fast executing 
compact code. The benchmark results below are from a 
study conducted by Manx. The Dhrystone benchmark 
(CACM 10/84 27:10 pl1018) measures performance for a 
systems software instruction mix. The results are with- 
out register variables. With register variables, Manx, 
Microsoft, and Mark Williams run proportionately faster, 
Lattice and Computer Innovations show no improve- 
ment. 


quite valuable 


Compile/ 
Link Time 


Execution Code 
Time Size 


Dhrystone Benchmark 
Manx Aztec C86 3.3 34 secs 5,760 
Microsoft C 3.0 34 secs 7,146 
Optimized C86 2.20) 53 secs 11,009 
Mark Williams 2.0 56secs 12,980 
Lattice 2.14 89secs 20,404 


93 secs 
119 secs 
172 secs 
113 secs 
117 secs 


Great Features: Manx Aztec C86 is bundled with a powerful 
array of well documented productivity tools, library routines 
and features. 

Optimized C compiler 
AS86 Macro Assembler 
80186/80286 Support 
8087/80287 Sensing Lib 
Extensive UNIX Library 
Large Memory Model 

Z (vi) Source Editor -c 
ROM Support Package-c INTEL HEX Utility -c 
Library Source Code -c Mixed memory models -c 
MAKE, DIFF, and GREP -c_ Source Debugger -c 

One year of updates -c CP/M-86 Library -c 


Symbolic Debugger 

LN86 Overlay Linker 
Librarian 

Profiler 

DOS, Screen, & Graphics Lib 
Intel Object Option 

CP/M-86 Library -c 


Manx offers two commercial development systems, 
Aztec C86-c and Aztec C86-d. Items marked -c are 
special features of the Aztec C86-c system. 


Aztec C86-c Commercial System 
Aztec C86-d Developer’s System $299 
Aztec C86-p Personal System $199 
Aztec C86-a Apprentice System $49 


All systems are upgradable by paying the difference 
in price plus $10. 


Third Party Software: There are a number of high qual- 
ity support packages for Manx Aztec C86 for screen 
management, graphics, database management, and soft- 
ware development. 


C-tree $395 
PHACT $250 
HALO $250 Amber Windows $59 
PRE-C $395 Windows for C $195 
WindScreen $149 FirsTime $295 
SunScreen $99 _ = C Util Lib $185 
PANEL $295 Plink-86 $395 


$499 


Greenleaf $185 
PC-lint $98 


Manx Aztec C68k 


“Library handling is very flexible ... documentation is 
excellent ... the shell a pleasure to work in... blows 
away the competition for pure compile speed... an ex- 
cellent effort.” 

Computer Language review, April 1985 


Aztec C68k is the most widely used commercial C com- 
piler for the Macintosh. Its quality, performance, and 
completeness place Manx Aztec C68k in a position be- 
yond comparison. It is available in several upgradable 
versions. 
Optimized C 
Macro Assembler 
Overlay Linker 
Resource Compiler 
Debuggers 
Librarian 

Source Editor 
MacRam Disk -c 
Library Source -c 


Creates Clickable Applications 
Mouse Enhanced SHELL 
Easy Access to Mac Toolbox 
UNIX Library Functions 
Terminal Emulator (Source) 
Clear Detailed Documentation 
C-Stuff Library 

UniTools (vi,make,diff,grep) -c 
One Year of Updates -c 


Items marked -c are available only in the Manx Aztec 
C86-c system. Other features are in both the Aztec C86-d 
and Aztec C86-c systems. 


Aztec C68k-c Commercial System $499 
Aztec C68d-d Developer’s System $299 
Aztec C68k-p Personal System $199 
C-tree database (source) $399 


AMIGA, CP/M-68k, 68k UNIX call 


Manx Aztec C65 


“The AZTEC C system is one of the finest software 
packages I have seen” 
NIBBLE review, July 1984 


A vast amount of business, consumer, and educational 
software is implemented in Manx Aztec C65. The quality 
and comprehensiveness of this system is competitive 
with 16 bit C systems. The system includes a full optim- 
ized C compiler, 6502 assembler, linkage editor, UNIX 
library, screen and graphics libraries, shell, and much 
more. The Apple II version runs under DOS 3.3, and 
ProDOS, Cross versions are available. 

The Aztec C65-c/128 Commodore system runs under 
the C128 CP/M environment and generates programs for 
the C64, C128, and CP/M environments. Call for prices 
and availability of Apprentice, Personal and Developer 
versions for the Commodore 64 and 128 machines. 


Aztec C65-c ProDOS & DOS 3.3 $399 
Aztec C65-d Apple DOS 3.3 $199 
Aztec C65-p Apple Personal system $99 
Aztec C65-a for learning C $49 
Aztec C65-c/128 C64, C128, CP/M $399 


Distribution of Manx Aztec C 


In the USA, Manx Software Systems is the sole and ex- 
clusive distributor of Aztec C. Any telephone or mail 
order sales other than through Manx are unauthorized. 


‘Bell Laboratories, Lattice TM Lattice inc., C-tree TM Faircom. Inc., PHACT TM PHACT ASSOC. Ci Optimizing C86 TM Computer ee 
/ rts ieee Windscreen. SunScreen TM Sunlec. ene aE. Roundhill Computer Sigs Ud. WINDOWS FORC IMC 


Cross developed programs are edited, compiled, assem- 
bled, and linked on one machine (the HOST) and trans- 
ferred to another machine (the TARGET) for execution. 
This method is useful where the target machine is slower 
or more limited than the HOST, Manx cross compilers 
are used heavily to develop software for business, 
consumer, scientific, industrial, research, and education- 
al applications. 


HOSTS: VAX UNIX ($3000), PDP-11 UNIX ($2000), MS- 
DOS ($750), CP/M ($750), MACINTOSH ($750), 
CP/M-68k ($750), XENIX ($750). 


TARGETS: MS-DOS, CP/M-86, Macintosh, CP/M-68k, 
CP/M-80, TRS-80 3 & 4, Apple II, Commodore C64, 
8086/80x86 ROM, 68xxx ROM, 8080/8085/Z80 ROM, 
65xx ROM. 

The first TARGET is included in the price of the HOST 
system. Additional TARGETS are $300 to $500 (non 
VAX) or $1000 (VAX). 

Call Manx for information on cross development to the 
68000, 65816, Amiga, C128, CP/M-68K, VRTX, and 
others. 


Manx Aztec CI 


‘Tve had a lot of experience with different C compilers, 
but the Aztec C80 Compiler and Professional Develop- 
ment System is the best I've seen.” 

80-Micro, December, 1984, John B. Harrell III 


Aztec C II-c (CP/M & ROM) $349 
Aztec C II-d (CP/M) $199 
C-tree database (source) $399 
Aztec C80-c (TRS-80 3 & 4) $299 
Aztec C80-d (TRS-80 3 & 4) $199 


How To Become an Aztec C User 


To become an Aztec C user call 1-800-221-0440 or call 
1-800-832-9273 (800-TEC WARE). In NJ or outside the 
USA call 201-530-7997. Orders can also be telexed to 
4995812. 

Payment can be by check, COD, American Express, 
VISA, Master Card, or Net 30 to qualified customers. 

Orders can also be mailed to Manx Software Systems, 
Box 55, Shrewsbury, NJ 07701. 


How To Get More Information 

To get more information on Manx Aztec C and related 
products, call 1-800-221-0440, or 201-530-7997, or write 
to Manx Software Systems. 


30 Day Guarantee 

Any Manx Aztec C development system can be return- 
ed within 30 days. for a refund if it fails to meet your 
needs. The only restrictions are that the original pur- 
chase must be directly from Manx, shipped within the 
USA, and the package must be in resalable condition. 
Returned items must be received by Manx within 30 
days. A small restocking fee may be required. 


Discounts 
There are special discounts available to professors, 
students, and consultants. A discount is also available on 
a “trade in” basis for users of competing systems. Call for 
information: 
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Ada 
Dear DDJ, 
As you may be aware, Su- 
perSoft has always been a 
supporter of DDJ. 1 was par- 
ticularly interested in the 
February 1986 issue, which 
included an article that 
concerned our Ada compil- 
er. (See ‘Learning Ada ona 
Micro.’’) I was sorry to see, 
however, that there was 
no information on how to 
purchase our Ada in the ar- 
ticle. We would like to of- 
fer the readers of DDJ a 30 
percent discount if they 
mention the magazine 
when they order Ada by 
calling (800) 762-6629. 

Margie Foote 

Supersoft 

P.O. Box 1628 

Champaign, IL 61820 


STAGE2 

Dear DDJ, 

Years ago, in the late 70s, I 
used a version of STAGE2, a 
remarkable macro-con- 
verter program, on a DEC 
PDP-8/E. 

More recently, I could 
see in the CPMUG Library a 
STAGE2 for the 8080 by Dick 
Curtiss. 

Do you know of the 
availability of such a mac- 
ro-converter written for 
PC-DOS? 

Guy Dewarichet 

Ave. George Bergmann, 

33 
B - 1050 Brussels 
Belgium 


8080 Simulator 
Dear DDJ, 

While I was_ looking 
through my article ‘COM: 


An 8080 Simulator for the 
MC68000” in DDJ January 
1986), I noticed that I nad 
some pretty bad code in 
the logical instructions. 
COM originally had all the 
8080 registers in memory; 
with Version 1.2 I moved 
all the accumulator and 
flags into 68000 data regis- 
ters. Unfortunately I didn't 
take advantage of all the 
68000 instructions that I 
now could. The sequences 
in Table 1, page 10 (from 
Version 1.1) could now be 
written as appears in Table 
2, page 10, instead of the 
way they were pub- 
lished—provided that the 
high byte of d0.w is always 
assured to be zero. (This is 
the case with the pub- 
lished code.) 

Similar improvements 
can be made to all xra, ora, 
ana, sui, ani, xri, and sub in- 
structions. Add and adc in- 
structions don’t get shorter 


because of the daa logic, 
and sbb doesn’t because of 
subx.b restrictions. The 
XOR simulations aren't as 
short as the others are be- 
cause the 68000 requires 
the source operand of eor.b 
to be a data register. Along 
with some short improve- 
ments to my ral, rar, and 
daa instructions (suggested 
by Edmund Ramm of Ger- 
many), changing dad htoa 
shift instruction, and re- 
moving an extraneous in- 
struction from jmp, I ended 
up with no perceptable dif- 
ference! As I had figured 
before, the real bottlenecks 
in this program are the op- 
code dispatcher and the 
call, jmp, and ret simula- 
tions. 

The only way I see to 
really speed this up is with 
a 68020. As well as having a 
speed four times faster on 
68000 programs, the 68020 
has an additional address- 


Cr 
MM 





ing mode of memory indi- 
rection that should speed 
up the opcode dispatcher, 
and it allows word accesses 
to odd byte addresses. Ta- 
ble 3, page 10, shows what 
call would be trimmed to. 

Perhaps someone with a 
68020 machine would care 
to implement this program 
and report back the results. 

Jim Cathey 

ISC Systems Corp. 

TAF-C8 

Spokane, WA 99220 


Inefficient C 

Dear DDJ, 

I'd like to comment on Hal 
Hardenbergh’s Viewpoint 
column entitled ‘‘Ineffi- 
cient C’’ in the January 
1986 issue of DDJ. Although 
I agree, for the most part, 
that C isn’t as efficient as as- 
sembly language, I feel that 
he overlooked some very 
important facts: 


1. There are many C com- 
pilers on the market, par- 
ticularly for the 8086/8088 
processor. The quality of 
the code produced by 
these compilers ranges 
from decent (Manx Aztec 
C86) to rotten (Lattice C). 
The size and speed of the 
code produced by these 
compilers varies for sever- 
al reasons, the simplest be- 
ing that the 8086 has an odd 
(read: difficult to use) in- 
struction set and architec- 
ture (I never liked segment- 
ed memory), making opti- 
mizer writing a complex 
task. Other reasons are 
poor use of registers and 
high overhead in subrou- 
tine calls (especially in pro- 
grams whose text seg- 
ments exceed 64K). 

On PDP-11-type ma- 
chines (where C originat- 
ed), we've found that there 
is about a 30 percent over- 
head to C vs. assembler. 
Most system designers con- 
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Building an operating system is child’s play. . . 





. . . with Wendin’s Operating System Toolbox™ 


We know. 

We used it to build PCVMS, our $99 version of the versatile oo eee our ollier 
VAX : products for the IBM PC 

/VMS operating system for the IBM PC. : 

And PCUNIX, the only operating system that puts the powerful and true compatibles. 
features of UNIX on the PC for under $100. 

But we didn’t create this powerful software construction set just for PCUNIX™ 
us. The toolbox is for any programmer who wants to build his or her True multitasking, multiuser operating 
own multitasking, multiuser operating systems. system similar to AT&T's popular UNIX™ 

Systems compatible with the PC-DOS file system and with most Se ciesiesie de rael 
MS-DOS programs. PCVMS™ 

In nine basic modules, toolbox provides everything you need Multitasking, multiuser version of DEC’s 
(including source and object code) to build a personal operating powerful VAX/VMS operating system. 
system that fits you and your work habits — instead of the other way Rees Pe Pes eeaains 
around. XTC® 

And to help you get started, we've written a step-by-step instruction The ultimate programmer's editor. Multi- 
manual that shows you how to write a shell and link it with the tasking macro language plus multiple 
toolbox kernel. linkable windows and buffers. 


The only thing we don't provide is a creative imagination. If you've 


got that, the rest is child’s play. All products priced at $99 with 
source code included. 


Operating System Toolbox From Wendin. Only $99, scinennaiiecs writes 
Foreign orders inquire about shipping. 


Circle no. 112 on reader service card. ORDER HOTLINE Domestic orders add $6. 00/1 pec es 


handling, and insurance. 
(509) 235-8088 Washington residents add 7.8% sales tax. 


(MON.-FRI., 8-5 PACIFIC TIME) atolls ro ae p iho rte atab dob 


Corporation 


© Copyright 1986 Wendin, Inc. The people who make quality Sh ec Wendin and XTC are registered trademarks of Wendin, inc. 
software tools affordable. ; = Hise ys aoe oo Toolbox, and Personal Operating System 
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sider this quite good com- 
pared to other high-level 
languages (even, dare I say 
it in the same breath, 
FORTRAN). 

On other types of archi- 
tectures, C is better or 
worse depending on how 
well the instruction set 
matches the operators in C, 
and on how much time 
and effort is put into the 
compiler design and the 
optimizer. 

2. The paragraph that talks 
about the market voting 
with its wallet and not car- 
ing about “how hard it was 
to produce a program or 
how long it took,” etc., is 
true in essence. Users are 
interested in two basic fac- 
tors when purchasing soft- 
ware: cost and functiona- 
lity. Speed is an important 
factor in functionality. Mr. 
Hardenbergh has obvious- 
ly not gone to market with 


many products, however; 
otherwise he'd know that 
the ‘‘market window” 
makes or breaks a product. 
A program that works, 
however slowly, is better 
than one that is still being 
written. Being first can be 
much more important 
than being fastest! Proto- 
typing in C and rewriting 
parts in assembly language 
is an accepted method of 
software design; it also al- 
lows a product (alpha or 
beta version) to be placed 
in the market ASAP. If cod- 
ing in C can reduce the de- 
velopment time for a prod- 
uct, then this may also 
bring down the cost so that 
even if the product is slow- 
er than its assembly sibling, 
it will be less expensive. 
(Somehow, this doesn’t 
seem to happen, though. I 
wonder if corporate greed 
enters into play here?) 
3. An example of an appli- 
cation in which C has made 
a firm stand is in the area of 


move.b regb(regs),d0 
and.b rega(regs),d0 
move.b d0,rega(regs) 


and.w regconff,dO 
move.b 16(flagptr,d0.w), regf(regs) 


jmp (return) 





Table 1: The original AND 


and.b 


and.b regb(regs),rega 


- AO AnaB 


move.b 16(flagptr,rega.w),regf 


jmp (return) 


Table 2: The improved AND 





move.w (pseudopc)+ ,d0 


rol.w #8,d0 


; Byte reversal, but 


move.1 pseudopc,d1 
sub.1 targbase, d1 


rol.w #8,d1 


; barrel shifter is quick! 


move.w d1,—(sp) 
lea.| O(targbase,d0.1),pseudopc 


jmp (return) 





Table 3: CAll using 68020 instructions 
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operating systems. Consid- 
er that the Unix system is 
about 90 percent C and 10 
percent assembly (interest- 
ing that this particular ratio 
pops up, isn't it?); it com- 
prises about 100K of in- 
structions and about anoth- 
er 100K of data (give or take 
a little depending on the 
number of device drivers 
installed and the amount of 
memory devoted to buffer 
caches). Now consider that 
mainframe opesating sys- 
tems written in assembly 
are much larger (MVS is 
around 130K without TSO, 
which is necessary if you 
want to have an interactive 
system.) 

Whether Unix is more or 
less functional than other 
operating systems is a long- 
standing dispute; however, 
in looking at Amdahl’s UTS 
system (a Unix System V im- 
plementation for IBM main- 
frames), I've seen a system 
that can support more us- 
ers than can MVS/TSO or 
VM/CMS on the same pro- 
cessor. Not only is UTS fast- 
er, but it also has a feature 
that no IBM mainframe has: 
full-duplex asynchronous 
communications (which 
we're so used to that we 
forget how annoying half- 
duplex is). 

I guess that the point 
here is that even though 


DEFINITION MODULE CodeGenerator; 


Unix is coded mostly in C, it 
has enough functionality 
to make a dent in a market- 
place dominated by prod- 
ucts coded in assembly lan- 
guage; enough functional- 
ity to force companies to 
offer it as an option even 
though it competes with 
their own _ operating 
systems. 


Anyway, there is no 
question that assembly 
produces faster code than 
C does in practically every 
application; the questions 
are whether the overhead 
that goes along with C is 
worth the reduction in de- 
velopment time and over- 
all product cost and wheth- 
er having the time to add 
greater functionality to the 
product is desirable. 

Patrick Wood 

Pipeline Associates Inc. 

49 Manito Ave. 

Lake Hiawatha, NJ 07034 


Correction 

Listing Five of Brian R. An- 
derson’s article, ““A 68000 
Cross Assembler—Part 1,” 
(April 1986) was incom- 
plete. The complete listing 
is shown in Table 4, below. 


DDJ 


(* Uses information supplied by Parser, OperationCodes, a 
(* and SyntaxAnalyzer to produce the object code. =) 


FROM Parser IMPORT 
TOKEN, OPERAND; 


FROM LongNumbers IMPORT 
LONG; 


EXPORT QUALIFIED 


LZero, AddrCnt, Pass2, BuildSymTable, AdvAddrCnt, GetObjectCode; 


VAR 
LZero, AddrCnt : 
Pass2 : BOOLEAN; 


LONG; 


PROCEDURE BuildSymTable = AddrCnt 
abel, OpCode 


: LONG; 


: TOKEN; SrcOp, Destp : OPERAND); 


(* Builds symbol table in symbolic information of Source File *) 


PROCEDURE AdvAddrCnt (VAR AddrCnt 


: LONG 


}; 
(* Advances the address counter based on the length of the instruction *) 


PROCEDURE GetObjectCode (Label, OpCode 


SrcOp, DestOp 
VAR AddrCnt, ObjOp, ObjSrc, ObjDest 
nA, 


VAR 


: TOKEN; 
: OPERAND; 
: LONG; 


no, ns, nD, : CARDINAL) ; 


(* Determines the object code for the operation as well as the operands *) 
") 


{* Returns each (up to 3 fields), 


END CodeGenerator. 


Table 4 


along with their length 
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You know what UNLX™ System V 
can do. 

But now you don’t need a mini to do 
it. The AT&T UNIX PC puts room-size 
computing power right on adesktop. — 

Its Motorola 68010 chip, 10 MHz 
clock speed and up to 4MB RAM— 
with virtual memory support and inter- 
nal hard disk options from 10 to 
67MB—give you 75% of the power of 
a VAX* 11/780. 

For only 7% of the cost. 

Development tools? The AT&T 
UNIX PC puts you in a UNIX System V 
environment complete with system util- 
ities, the shell, C compiler and 68010 
assembler. As for languages, you get the 
full range: C, Cobol, Fortran, Pascal, 
BASIC and the LPI** high-performance 
suite. Not to mention C-ISAMTf, 
INFORMIX} and sort/merge for 


database development. 


WER FOR PEOPLE WITH 
THINGS IN MIND. | 


All, with the convenience of built-in 
text editors, debuggers and graphics 
tools, including the GSS Virtual 
Device Interface. 

_ Up-and downloading your work 
from minis or mainframes is easy. 
Thanks to the standard internal 300/ 
1200 bps modem, RS-232 port, VT 
100* terminal emulation software and 
optional 3270 terminal emulation. You 
also get two jacks for phone lines and 
built-in communications software. 

All of which make the AT&T UNIX 
PC ideal for ongoing voice/data com- 
munications and remote access to 
shared corporate databases. 


ONE OF THE COMPUTERS 
WITH THE FUTURE BUILT IN. 


Even with all its available power 
and storage options, the AT&T UNIX 


PC still has room to grow. With three 


*VAX and VT 100 are trademarks of Digital Equipment Corporation. **LPI is a trademark of Language Processors, Inc. 
tC-ISAM and INFORMIX are trademarks of Relational Database Systems, Inc. © 1986 AT&T Information Systems. 


expansion slots and the ability to con- 
nect up to seven serial devices. 

Because when you have big ideas, 
accommodating them shouldn’t be a 
big deal. 


‘To find out about the ATT UNIX PC and our 
SPECIAL LIMITED TIME OFFER 
call your AT&T Account Executive, authorized 
AT&T supplier or 1 800 247-1212. 
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VIEWPOINT 


What’s Wrong 
with C 


Conventional wisdom is 
something that ought to be 
questioned periodically. 
The selection of C as the 
language of choice for mi- 
crocomputer system soft- 
ware development has ar- 
guably attained the status 
of conventional wisdom. 
After all, what is good 
enough for Bill Gates and 
his crew ought to be good 
enough for us, right? 

I realize that criticizing a 
programmer's favorite lan- 
guage is likely to provoke a 
defensive reaction more 
visceral than rational, and I 
expect some controversy. 

My first criticism is that 
the code produced by most 
people using C as a tool is 
(hang on to your hat!) bulky 
and slow. Furthermore, it is 
not just bulky and slow 
compared with assembly 
language; it is inefficient 
compared with the output 
of an average production- 
quality optimizing compil- 
er. 

Conventional wisdom 
Lsays that the reward for 
working in an inherently 
low-level language such as 
C is efficiency. This is not 
necessarily so. In C, as in as- 
sembly language, optimi- 
zation is the responsibility 
of the individual program- 
mer. The whole C philoso- 
phy would have you be- 
lieve this is the correct 
emphasis. Unfortunately 
hand optimization, like 


by David Carew 


David Carew is a systems 
analyst developing banking 
applications at Inc., 2864 
South Circle Dr., Ste. 200, 
Cheyenne Centre, Colorado 
Springs, CO 80906. 
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documentation, never gets 
done (unless of course, the 
product is about to become 
obsolete). 

The brutal fact is that an 
average optimizing com- 
piler will outdo the hand- 
coded assembler imple- 
mentation of 80 percent of 
the programming popula- 
tion; the other 20 percent 
would take from three to 
ten times longer to get a 
better implementation up 
and running. A second bru- 
tal fact is that C, with its 
low-level philosophy and 
direct implementation of 
pointers and machine-lev- 
el constructs, simply 
doesn’t allow the use of 
standard compiler optimi- 
zation techniques. Object 
code generated by a Ccom- 
piler almost never beats 
hand-coded assembly. 

If better quality compil- 
ers were demanded, better 
quality would be deliv- 
ered. The fact that good 
quality optimizing compil- 
ers seem scarce in the mi- 


crocomputer market 
should not be an excuse for 
sticking with C. 


My second criticism of C 
is also directed at some- 
thing usually regarded as a 
strength, or at least as an 
opportunity for the pro- 
verbial “experienced pro- 
grammer ’: C's operator set 
is too rich. Taken with the 
operator characters in C’s 
omnipresent preproces- 
sor, all those special opera- 
tors (++, &,*, ——,andso 
forth) and their accompa- 
nying precedence rules 
form a little “language 
within a language.’ The 
programmer is rewarded 
for knowing the nuances 
and tricks of this “‘lan- 
guage’’—rewarded with 
much more efficient code. 

Thus guided by the in- 
visible hand of the compil- 
er, the programmer inev- 


itably tends: (a) to write less 
understandable, less sup- 
portable code; and (b) to be- 
come distracted from the 
task of contriving an opti- 
mal solution to the prob- 
lem at hand. I am often 
struck by the impression 
that a given C program is 
an elegant example of C 
and its operators but misses 
the point as a solution. On 
the one hand, here is a con- 
cordance generator that 
builds a binary tree instead 
of using a faster, shorter, 
and more robust sort, but 
its use of pointer operators 
in building the tree is ex- 
pertly done. On the other 
hand, there is a grep-style 
search utility in which ex- 
pert use of C’s nuances is 
made in the service of a 
hard-wired, ‘“look-ahead’”’ 
style parser that is admit- 
tedly slower (and probably 
bulkier) than a good table- 
driven parser. 

From the standpoint of 
the software designer, a 
good compiler might allow 
the programmer to say ei- 
ther 


b= ++i 
or 
i=i+1 
bi 


as long as the object code 
generated is the same. 
When one construct gener- 
ates radically better code 
(and when there are doz- 
ens or hundreds of such 
tricks and trade-offs), it is 
natural for the program- 
mer to expend effort opti- 
mizing his or her use of the 
progamming notation as 
well as devising an effi- 
cient solution to the prob- 
lem at hand. Because the 
compiler is well-defined, 
consistent, and approach- 
able and the application 


problem is likely to be ill- 
defined, inconsistent, and 
messy, it is very easy for 
the emphasis to become 
misplaced. 

Make no mistake about 
it, better algorithms and 
data structures for solution 
of the application problem 
are far more important 
than is ideal use of a com- 
plex programming nota- 
tion. To see this for your- 
self, benchmark a quick- 
and-dirty, compiled BASIC 
quick sort against the tight- 
est, best-coded, C language 
selection sort you can de- 
vise or find. 

C is tending to create a 
new computer elite, a bar- 
rier to those who haven't 
the time or inclination to 
master its complexity (and, 
devotees would say, its at- 
tendant “‘power’’). Because 
the investment in learning 
C is so high, there is a 
strong psychological addic- 
tion factor. C wizards like 
being C wizards, and the 
sociology of this under- 
standable bias may be dan- 
gerously close to creating 
an unnecessary, artificial 
barrier to further progress 
in microcomputer soft- 
ware technology. 

The measure of a com- 
piler-based programming 
language is in the quality of 
its output object code and, 
perhaps even more impor- 
tant, in the productivity of 
average (nongenius, non- 
wizard) programmers, 
who produce and main- 
tain the vast bulk of all 
source code in any lan- 
guage. By these measures, 
Cis a surprisingly poor lan- 
guage, given its unques- 
tioned acceptance. It may 
be the best choice we have 
at the moment—though 
even that contention may 
be open to debate. 


DDJ 


Dr. Dobb’s Journal, June 1986 





44 Language deal 
OA elee-selnvhg eee 
Turbo Pascal 
Jeff Duntemann, PC Magazine 


Turbo Pascal has got 
to be the best value 
in languages on the 
market today 
Jerry Pournelle, BYTE Magazine 


Turbo Pascal and the Turbo Pascal 
family give you a perfectly integrated 
programming environment and 
unbeatable speed, power, and price 


"Luho Pascal’ is fastar than 





































“Award for Technical Excellence.” 
And some of the reasons why Turbo 
Pascal has now become a de facto 
worldwide standard with more than 
half a million users. 


Turbo Pascal has grown 
from a single product 3 
years ago to a family 
of 9 today. 

Success breeds success, so the 
Turbo Pascal family has flourished. 
Your choices now include: 


() Turbo Pascal 3.0 combines 

the fastest Pascal compiler with 

an integrated development 
environment. 

C) Turbo Pascal with 8087 math 
co-processor support for heavy duty 
number-crunching, and/or Binary 






and stores screen images to 
memory. 


NEW! Amazing value! Turbo 
Editor Toolbox includes 
MicroStar™ a full-blown 
editor that also does windows! 
Turbo Editor Toolbox not only gives you 
Tready-to-compile source code and a 200- 
page manual that tells you how to inte- 
grate the editor procedures and functions 
into your programs, but also includes 


NEW! Turbo GameWorks 
gives you the games you 
c&aN write, rewrite, bend and 
amend! Turbo GameWorks reveals 
the secrets of game design and the 
strategies. You're given source code, a 
200-page manual, and the insight 
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good through September 1, 1986, so 
act now. 


MicroStar, a complete editor with full 
windowing capabilities. (You could pay 
$100.00 or more for a program like 
MicroStar, but you get it free as part of 
our Turbo Editor Toolbox.) You can also 
use Turbo Editor (which of course in- 
legrates with Turbo Lightning™) to 
build your own word processor! 


needed to write and customize your 
Own. irresistible games. 

Turbo GameWorks also inchides ready- 
to-play Chess, Bridge, and Go-Moku—an 
ancient Japanese game that can divert 
you from reality for hours on end. 
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Prices include shipping to all US cities. 
Carefully describe your computer system: 
Mine is: __ 8-bit __ 16-bit 
/use: _ PC-DOS __ MS-DOS __ CP/M-80 __ CP/M-86 
My computer's name and model is: 


/ ® Turbo Pascal 3.0 This compiler, produced 
= Ps 3 © Turbo Pascal with the 
any other Pascal compiler, s 087 suppor Oy ae ere 
and at only $69.95, a distinctly (iia © Turbo Pascal with Toe TOm re Bop aes 
better deal. But it offersmuch [= ag nena aeons ning _ ee 
more than speed, power, © Turbo Pascal with 8087 gh wa nee 
p andBCD 
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The secret of software SUCCESS 1S powerful database ap plications. $245. OO! ! S —— Turbo Database Toolbox $54.95 $ 
not merely low price, but top quality, ) Turbo Graphix Toolbox includes - | : ‘ 
; or only $ ®A5.00, you get Turbo — Turbo Graphix Toolbox $54.95 $ 
allied with complete documentation, library of graphics routines for Pascal 3.0 and Turbo Editor Toolbox sm _. Tito Tuto 26955 
like our 400-page reference manual. Turbo Pascal programs. Lets even 4 Turbo tu Turbo Graphix as ak ‘ie 
All of which are some of the beginning programmers create a ap —_ . See ey 
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We have some very good news 
for you. 
You can now get a validated, 


full Ada® compiler for the IBM” 
PC AT. From the people who 
designed the Ada language. For 


just $3,000. 





Which means you and your 
company can now program in Ada 
without tying up a big, expensive 
computer. 

And you should program in 


Ada. And not just because the DoD 


says SO. 


The DoD mandates Ada for 
their software principally because 
Ada is considerably easier and less 

expensive to maintain. 

Does more reliable and easier 
to maintain code sound attractive 
to you If not, just look at how your 
programmers are spending 80% of 
their time. 

People who know Ada are call- 
ing it “‘the only logical language for 

eee the eighties 
ee land nineties.’ 
aes Ff | The point is, 

Ad&4MBofmenon? they're not 

for the price of 4-MB of memory. thinking of 
Ada as ‘‘the DoD language”’’ It’s 
simply because Ada supports good, 
solid software engineering practice. 

And now you can try full Ada 
programming for less than the cost 
of a two week training program. 

The Alsys™ Ada compiler for 
the PC AT is not only validated, it’s 
actually written in Ada. And pro- 
duces code so efficient it executes 
faster than C or Pascal on tested 
benchmarks. 

And if that’s not s 
enough, the Alsys PC AT — 
Ada compiler runs in pro- § 
tected mode. So you can 
use the full amount of 
memory available to the 


PC AT. This means you 


can run a program using 












Ada® is a registered trademark of the U.S. Government (Ada Joint Program Office). IBM® 
Alsys™ is a trademark, service mark, and trade name of Alsys S. 
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Lastly, this compiler 
comes with a 4-megabyte 
memory upgrade board. 
That, by itself, is worth 
the price of admission. 

At this point, we 
suspect you might be 
tempted to pull out a 
credit card and give us a call. 

Or at least fill out the coupon. 

Write: Alsys, Inc., 1432 Main 
Street, Waltham, MA 02154, 
U.S.A., Telephone: (617) 890-0030, 
Telex: 948536. 

In France: Alsys, S.A., 29, 
Avenue de Versailles, 78170 La 
Celle St. Cloud, France, Tele- 

phone: 33(1)3918 12 44, 
Telex: 697569. 

In England: Alsys, Ltd., 
Partridge Hse, Newtown 
Road, Henley-on-Thames, 
Oxon RG9 1EN, 

England, Telephone: 
44 (491) 579090, 
Telex: 846508. 





Knowledge is good. 
Especially when it’s free. 


and PC AT are registered trademarks of International Business Machines Corporation. 
A. *Memory board manufactured by Profit Systems, Inc. 
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The following was written 
and uploaded to Data Li- 
brary 0 by Forum member 
John A. Thomas. The on- 
line discussion ignited by 
this article and tended by 
John, which is in DLO as well 
(Type KEYWORDS:ENCRYPT 
THREAD), is generating a 
good deal of heat and light. 
Feel free to add your com- 
ments to the message board 
there. 


Survey of Data 
Encryption 

This article is a survey of 
data encryption. It is in- 
tended to provoke discus- 
sion among the members 
of this forum and perhaps 
lead to a creative exchange 
of ideas. Although the ba- 
sics of the subject seem to 
be known to few program- 
mers, it embraces many in- 
teresting and challenging 
programming problems, 
ranging from the optimiza- 
tion of machine code for 
maximum throughput to 
the integration of encryp- 
tion routines into editors, 
communications packages, 
and perhaps products not 
yet invented. Governments 
have dominated this tech- 
nology until the last few 
years, but now the need 
for privacy and secrecy in 
the affairs of a computer- 
using public has made it es- 
sential that programmers 
understand and apply the 
fundamentals of data en- 
cryption. 


by John A. Thomas 
CIS 75236,3536 


Some Cryptographic 
Basics 

A few definitions are ap- 
propriate first. We use the 
term encryption to refer to 
the general process of mak- 
ing plain information se- 
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cret and making secret in- 
formation plain. To 
encipher a file is to trans- 
form the information in 
the file so that it is no long- 
er directly intelligible. The 
file is then said to be in ct- 
phertext. To decipher a file 
is to transform it so that it is 
directly intelligible—that 
is, to recover the plaintext. 

The two general devices 
of encryption are ciphers 
and codes. A cipher works 
on the individual letters of 
an alphabet, whereas a 
code operates on some 
higher semantic level, such 
as whole words or phrases. 
Cipher systems may work 
by transposition (shuffling 
the characters in a message 
into some new order), by 
substitution (exchanging 
each character in the mes- 
sage for a different charac- 
ter according to some rule), 
or by a combination of 
both. In modern usage, 
transposition is often 
called permutation. A cl- 
pher that employs both 
transposition and substitu- 
tion is called a product ci- 
pher. In general, product 
ciphers are stronger than 
those using transposition 
or substitution alone. Shan- 
non! refers to substitution 
as “confusion” because the 
output is a nonlinear func- 
tion of the input, thus cre- 
ating confusion as to the set 
of input characters. He re- 
ferred to transposition as 
“diffusion’’ because it 
spreads the dependence of 
the output from a small 
number of input positions 
to a larger number. 

Every encryption sys- 
tem has two essential parts: 
an algorithm for encipher- 
ing and deciphering and a 
key, which consists of in- 
formation to be combined 
with the plaintext accord- 
ing to the dictates of the al- 
gorithm. In any modern 





encryption system, the al- 
gorithm is assumed to be 
known to an opponent, 
and the security of the sys- 
tem rests entirely in the se- 
crecy of the key. 

Our goal is to translate 
the language of the plain- 
text to a new “language” 
that cannot convey mean- 
ing without the additional 
information in the key. 
Those familiar with the 
concept of entropy in phys- 
ics may be surprised to 
learn that it is also useful in 
information theory and 
cryptography. Entropy is a 
measure of the amount of 
disorder in a physical sys- 
tem or the relative absence 
of information in a commu- 
nication system. A natural 
language such as English 
has a low entropy because 
of its redundancies and sta- 
tistical regularities. Even if 
many of the characters in a 
sentence are missing or gar- 
bled, we can usually make 
a good guess as to its mean- 
ing. Conversely, we want 
the language of our cipher- 
text to have as high an en- 
tropy as possible; ideally, it 
should be utterly random. 
Our guiding principle is 
that we must increase the 
uncertainty of the cryptan- 
alyst as much as possible. 
His uncertainty should be 
so great that he cannot 
make any meaningful state- 
ment about the plaintext af- 
ter examining the cipher- 
text; also, he must be just as 
uncertain about the key, 
even if he has the plaintext 
itself and the correspond- 
ing ciphertext. (In practice, 
it is impossible to keep all 
plaintext out of his hands.) 

A prime consideration in 
the security of an encryp- 
tion system is the length of 
the key. If a short key (that 
is, short compared with the 
length of the plaintext) is 
used, then the statistical 


properties of the language 
will begin to ‘‘show 
through” in the ciphertext 
as the key is used over and 
over, and a cryptanalyst 
will be able to derive the 
key if he has enough ci- 
phertext to work with. On 
the other hand, we want a 
relatively short key so that 
it can be stored easily or 
even be remembered by a 
human. The government 
or a large corporation may 
have the means to generate 
and store long binary keys, 
but we cannot assume that 
the personal computer user 
will be able to do so. 

The other important fact 
about the keys is that there 
must be very many of 
them. If our system allows 
only 10,000 different keys, 
for example, it is not secure 
because our opponent 
could try every possible 
key in a reasonable amount 
of time. This introduces the 
concept of the ‘work fac- 
tor’ required to break an 
encryption system. We 
may not have a system un- 
breakable in principle, but 
if we can make the work 
factor for breaking so high 
it is not practical for our op- 
ponent to do so, then it is 
irrelevant that the system 
may be less strong than the 
ideal. What constitutes an 
adequate work factor de- 
pends essentially on the 
number of uncertainties 
the cryptanalyst must re- 
solve before he can derive 
plaintext or a key. In these 
days of constantly improv- 
ing computers, that num- 
ber should probably exceed 
2128. It is easy to quantify the 
work factor if we are talk- 
ing about exhaustive key 
trial, but few modern Ci- 
phers are likely to be bro- 
ken by key trial because it is 
too easy to make the key 
space very large. Most like- 
ly they will be broken be- 
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Let Greenleaf do it for you 
and set you free. 


C Program developers, 

stop slaving! 

Greenleaf libraries have the 
functions you need — already 
perfected and in use by winning 
program developers in major 


corporations such as IBM, EDS 
and GM. 


Between our Greenleaf Functions 
and Greenleaf Comm Library, we 
have over 340 functions on the 
shelf. Each one can save you 
time and effort. Money, too. 


Many C programmers have told 
us that, even if they only use one 
or two functions, our products 
easily pay for themselves: 


The Greenleaf Functions 


The most complete and mature C 
language function library for the 
IBM PC, XT, AT and close 
compatibles. Our version 3.0 
includes over 225 functions — 
DOS, disk, video, color text and 
graphics, string, time/date, 
keyboard, new disk status and 
Ctr1-Break control functions plus 
many more! 


The Greenleaf Comm Library 


Our 2.0 version is the hottest 
communications facility of its 
kind. Over 120 all new functions 
— ring buffered, interrupt-driven 
asynchronous communications. 
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1-800-523-9830 
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214-446-8641 
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Greenleaf Software, Inc. 
1411 LeMay Drive Suite 101 
Carrollton, TX 75007 


If you need more than 2 ports, 
only Greenleaf gives you the total 
solution — boards, software, and 
complete instructions that enable 
you to build a 16-port 
communication system. 


And no matter how many ports 
you have, it’s virtually impossible 
to lose information with multiple 
file transfers. XMODEM, XON/ 
XOFF and Hayes modem 
controls are featured. 


We support all popular C 
compilers for MS DOS: Lattice, 
Microsoft, Computer 
Innovations, Wizard, Aztec, 
DeSmet and Mark Williams. 


Order today! 


Order a Greenleaf C library now. 
See your dealer or call 1-800- 
023-9830. Specify compiler 
when ordering. Add $8 for UPS 
second day air, or $5 for ground. 
Texas residents, add sales tax. 
Mastercard, VISA, P.O., check, 
COD. In stock, shipped next day. 


Greenleaf 

Comm Library v2.0 $185 
Greenleaf Functions v3.0 $185 
Digiboard Comm/4-II $315 
Digiboard Comm/8-II $515 


We also sell compilers, books and 
combination packages. 
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cause of internal periodici- 
ties and subtle dependency 
of output on input, which 
give the  cryptanalyst 
enough information to re- 
duce his uncertainty by or- 
ders of magnitude. 

A corollary to work fac- 
tor is the rule that a system 
need only be strong enough 
to protect the information 
for however long it has val- 
ue. If a system can be bro- 
ken in a week, but not soon- 
er, then it may be good 
enough if the information 
has no value to an oppo- 
nent after a week. 


Cryptanalysis 
Cryptanalysis is the science 
of deriving plaintext with- 
out the key information. 
Anyone intending to de- 
sign an encryption system 
must be acquainted to 
some degree with cryptan- 
alytic methods. The meth- 
ods of attack may range 
from sophisticated statisti- 
cal analysis of ciphertext to 
breaking into the oppo- 
nent’s office and stealing 
his keys (‘practical crypt- 
analysis’). There are no 
rules of fair play. The 
cryptanalyist is free to use 
his puzzle-solving ingenu- 
ity to the utmost, even to 
the point of applying the 
knowledge that your dog’s 
name is Pascal and that you 
might be lazy enough to 
use that as your key for the 
day. 

The cryptanalyst may 
have only ciphertext to 
work with, he may have 
both ciphertext and the cor- 
responding plaintext, or he 
may be able to obtain the 
encipherment of chosen 
plaintext. Some crypto- 
graphic systems are fairly 
strong if the analyst is limit- 
ed to ciphertext but fail 
completely if he has corre- 
sponding plaintext. Your 
system should be strong 
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enough to resist attack even 
if your opponent has both 
plaintext and ciphertext. 

Computer power can 
greatly aid cryptanalysis, 
but many systems that ap- 
pear strong can be broken 
with — pencil-and-paper 
methods. The Vigenere 
family of polyalphabetic ci- 
phers, for example, was 
generally believed to be un- 
breakable up until the late 
nineteenth century. A po- 
lyalphabetic cipher is a sub- 
stitution cipher in. which a 
different alphabet is used 
for each character of plain- 
text. In these systems, the 
key determines the order 
of the substitution alpha- 
bets, and the cycle repeats 
with a period equal to the 
length of the key. This peri- 
odicity is a fatal weakness 
because fairly often a re- 
peated letter or word of 
plaintext will be enci- 
phered with the same key 
letters, giving identical 
blocks of ciphertext. This 
exposes the length of the 
key. Once we have the 
length of the key, we use 
the known letter frequen- 
cies of the language to grad- 
ually build and test hypoth- 
eses about the _ key. 
Vigenere ciphers can be im- 
plemented easily on com- 
puters, but they are worth- 
less today. Designers 
without knowledge of 
cryptanalysis, however, 
might be just as ignorant of 
this fact as their colleagues 
of the last century. Please 
see the references at the 
end of this article for infor- 
mation on cryptanalytic 
techniques. 


A Survey of Crypto- 
graphic Systems 
I'll now review some rep- 
resentative encryption 
schemes, starting with tra- 
ditional ones and proceed- 
ing to the systems that are 
only feasible when imple- 
mented on computers. 
The infinite-key cipher, 


also known as the “‘one 
time pad,” is simple in con- 
cept. First, we generate a 
key that is random and at 
least the same length as our 
message. Then, for each 
character of plaintext, we 
add the corresponding 
character of the key to give 
the ciphertext. By addition, 
we mean some reversible 
operation; the usual choice 
is the exclusive-OR. A little 
reflection will show that, 
given arandom key at least 
the size of the plaintext 
(that is, ‘infinite’ with re- 
spect to the plaintext be- 
cause it is never repeated), 
the resulting cipher is un- 
breakable, even in princi- 
ple. This scheme is in use 
today for the most secret 
government communica- 
tions, but it presents a seri- 
ous practical problem with 
its requirement for a long 
random key for each mes- 
sage and the need to some- 
how send the lengthy key 
to the recipient. Thus the 
ideal infinite-key system is 


not practical for large vol- | 


umes of message traffic. It 
is certainly not practical 
for file encryption on com- 
puters because where 
would the key be stored? 
Be wary of schemes that 
use software random- 
number generators to sup- 
ply the infinite key. Typi- 
cal random-number 
algorithms use the preced- 
ing random number to 
generate the succeeding 
number and can thus be 
solved if only one number 
in the sequence is found. 
Some ciphers have been 
built to approximate the in- 
finite-key system by ex- 
panding a short key. The 
Vernam system for tele- 
graph transmission used 
long paper tapes contain- 
ing random binary digits 
(Baudot code, actually) that 
were’ exclusively-ORed 
with the message digits. To 
achieve a long key stream, 
Vernam and others used 


two or more key tapes of 
relatively prime lengths, 
giving a composite key 
equal to their product. The 
system is still not ideal be- 
cause eventually the key 
stream will repeat, allow- 
ing the analyst to derive 
the length and composi- 
tion of the keys given 
enough ciphertext. There 
are other ways to ap- 
proach the infinite-key ide- 
al, some of which are sug- 
gested in my article (with 
Joan Thersites) in the Au- 
gust 1984 issue of DDJ. (See 
sidebar on page 20.) 

Rotor systems take their 
name from the electrome- 
chanical devices of World 
War II, the best known be- 
ing perhaps the German 
ENIGMA. The rotors are 
wheels with characters in- 
scribed on their edges and 
with electrical contacts 
corresponding to the let- 
ters on both sides. A plain- 
text letter enters on one 
side of the rotor and is 
mapped to a different let- 
ter on the other side before 
passing to the next rotor 
and so on. All the rotors 
(and there may be few or 
many) are then stepped so 
that the next substitution is 
different. The key is the ar- 
rangement and initial set- 
ting of the rotor disks. 
These devices are easy to 
implement in software 
and are fairly strong. They 
can be broken, however; 
the British solution of the 
ENIGMA is an interesting 
story outside the scope of 
this article. If you imple- 
ment a rotor system, con- 
sider having it operate on 
bits or nybbles instead of 
bytes, consider adding per- 
mutation stages, and con- 
sider how you are going to 
generate the rotor tables 
because you must assume 
these will become known 
to an opponent. 

In 1977 the National Bu- 
reau of Standards promul- 
gated the Data Encryption 
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Standard (DES) as the en- 
cryption system to be used 
by all federal agencies (ex- 
cept for those enciphering 
data classified under any of 
the national security acts). 
The standard is available in 
a government publication 
and also in several books. 
The DES was intended to be 
implemented only in hard- 
ware, probably because its 
designers did not want us- 
ers to make changes to its 
internal tables. DES has 
been implemented in soft- 
ware, however, and is 
available in several micro- 
computer products (such 
as Borland’s SuperKey or 
IBM's Data Encoder). 

The DES is a product ci- 
pher using 16 stages of per- 
mutation and substitution 
on blocks of 64 bits each. 
The permutation tables are 
fixed, and the substitutions 
are determined by bits 
from a 56-bit key and the 
message block. This short 
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fact that the key informa- 
tion is divided into two 
parts, one of which can be 
made public. A person 
with the public key can en- 
cipher messages, but only 
one with the private key 
can decipher them. All 
public-key systems rely on 
the existence of certain 
functions for which the in- 
verse is very difficult to 
compute without the infor- 
mation in the private key. 
These schemes do not ap- 
pear to be practical for mi- 
crocomputers—at least for 
8-bit machines—if their 
strength is to be exploited 
fully. One variety of the 
public-key system (the 
knapsack) has been broken 
by solution of its encipher- 
ing function, but this is no 
reflection on other sys- 
tems, such as the RSA 


scheme, which use differ- 
ent enciphering functions. 
All public-key systems pro- 
posed to date require 





key has caused some ex- | Li 


perts to question the secu- 
rity of DES. Controversy 
also exists regarding the in- 
volvement of the National 
Security Agency in parts of 


the DES design. The issues | 
are interesting but beyond | 


the scope of this article. 


Because DES was intend- | fi 
ed for hardware imple- | tk 


mentation, it is relatively 
slow in software. Software 
implementations of DES are 
challenging because of the 
bit manipulation required 
in the key scheduling and 
permutation routines of the 
algorithm. Some imple- 
mentations gain speed at 
the expense of code size by 
using large, precomputed 
tables. 

The public-key cipher is 
an interesting new devel- 
opment that shows poten- 
tial for making other en- 
cryption systems obsolete. 
It takes its name from the 
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inverse | permutation. 
_For example, if the pe 


mutation table has. ‘the | 
: values - _ 1 





place, the 15th bit in the 1st 
place, the 115th bit in the 
2nd place, and so on until 
the Oth bit goes in the 255th 
place. 













r- ay meee soon. _ | 
The routines since bi bits : 





heavy computation, such 
as the exponentiation and 
division of very large num- 
bers (200 decimal digits for 
the RSA scheme). On the 
other hand, a public-key 
system that worked at only 
10 bytes/second might be 
useful if all we are sending 
are the keys for some other 
system, such as the DES. 


Some Random 
Thoughts 

e Must we operate on 
blocks instead of bytes? 
Block ciphers seem stron- 
ger because they allow for 
permutation. On the other 
hand, they make life diffi- 
cult when file size is not an 
integral multiple of the 
block size. 

eCan we make a file en- 
cryption system OS-inde- 
pendent? This is related to 
the question above on 
blocks vs. bits. How do we 
define the end of file if the 
plaintext is ASCII and the ci- 
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phertext can be any 8-bit 
value? 

«Can we find an efficient 
way to generate and store a 
random key for the infi- 
nite-key system? Hard- 
ware random-number 
generators are not hard to 
build, but would they be of 
any use? 

«Bit fiddling is expensive. 
Can it be avoided and still 
leave a secure system? 

«No file-encryption system 
can erase a file logically and 
be considered secure. The 
information can be recov- 
ered until it is overwritten. 
Overwriting files adds to 
processing time. I am in- 
formed that it is possible to 
reliably extract informa- 
tion even from sectors that 
have been overwritten. Is 
this so? If it is, what is the 
solution? 

eHow do we integrate en- 
cryption systems into dif- 
ferent tools? Should a tele- 
communications program 
encrypt data transparently 
if the correspondent is 
compatible? What about an 
editor-encryption system 
wherein plaintext would 
never exist on the disk, 
only on the screen? How 
would we manage to enci- 
pher/decipher text as we 
scroll through it and make 
changes and still get ac- 


| 5 | ceptable performance? 
| «By their nature, encryp- 


: ~ tion schemes are difficult 
ion | to test. What test might we 








. bit cay from the byte val- 
_ | ue of the permutation ta- 
. | ble. The upper five bits of 

then the forward permuta- 

tion means to put the 1st bit 

of the block in the Oth 


that value index to the par- 
ticular byte in the block, 
and the lower three bits 
then index to the particu- 
lar bit within that byte. 


The routines run about 


three times faster a0 the 
Z80 versions. 






subject a system to that 
would increase our confi- 
dence in it? 


| Note 


1. Claude Shannon, ‘‘Com- 
munication Theory of Se- 
crecy Systems,” Bell Sys- 
tem Technical Journal (Oct. 
1949 ): 656 — 715. 
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HOW PEOPLE WITH COMMON 





INTERESTS FIND AN INTERESTING 
COMMON GROUND. 


Presenting CompuServe Forums. 
Where people from all over get 
together, without even leaving 
home. 

Now thanks to CompuServe 
Forums, computer owners are sharing 
common interests by talking to each other 
through their computer keyboards. Soft- 
ware users, computer enthusiasts, ham 
operators, french cooks, fire fighters, 
science fiction lovers and other special 
interest groups are already in touch, 
online. 

Because when you subscribe to 
CompuServe, you're able to reach people 
who want to talk about the things you do. 
As many people as you like. For as long 
as you like. Whenever you wish. 

Join a conversation already in 


progress or start one on your own. Ask 
questions. And get answers. 

All it takes is a modem, most any 
personal computer and CompuServe. 


Forum members across the country 
are as Close as a local phone call. 

You can go online with just a local 
call in most major metropolitan areas. And 
normal usage fees for weekday nights and 
weekends are just 10¢ a minute 


Of special interest to all Forum 
participants is software that’s FREE 
for the taking. 

Public domain software. For all 
sorts of activities, from games to business 
programs. And it’s just as easy to copy a 
piece of software as it is to participate in 
a Forum. 


Circle no. 237 on reader service card. 


Become a CompuServe subscriber and 
get a $25 Usage Credit to start you off. 

Becoming a subscriber is as easy as 
contacting your local computer dealer. Or 
you can call us and order direct. Suggested 
retail price is $39.95. 

And if you'd want more information 
about CompuServe, we'll be happy to send 
you a free brochure. Because with all that 
CompuServe offers—we think it’s in your 
best interest. 


CompuServe: 


Information Services, PO. Box 20212, 
5000 Arlington Centre Bivd., Columbus, OH 43220 


800-848-8199 


In Ohio, call 614-457-0802 


An H&R Block Company 


COLUMNS 


C Cres! 


Sort—A General-Purpose Sorting Program 


s tax time rolls around again 

(I’m writing this column in 
March), the dreaded task of organiz- 
ing my tax records rears its ugly 
head. The year before last I used 
dBASE to do this organizing, and last 
year I used Lotus 1-2-3. Neither pro- 
gram is really satisfactory. It’s too 
hard to enter data using dBASE, and 
the Lotus spreadsheet does just that, 
spread out all over my dining room 
table. Both programs are designed to 
do much more than needed anyway. 
AllI want to do is create a normal file, 
with a normal editor, in which each 
line represents a deductible item. 
The line is split up into several fields 
(date, category, description, amount, 
check number), and the entire file 
must be sorted first by category and 
then by date (that is, all lines for a 
single category have to be grouped 
and the lines within the category 
need to be sorted by date). 

So, my solution to this problem was 
to dust off an old sort utility and mod- 
ify it so that it could handle files larg- 
er than the amount of available 
memory. This month, I'll discuss this 
program, which is called sort. 

Sort sorts the lines of an ASCII file 
(or collection of files)—that is, the in- 
dividual lines are rearranged but the 
words on a line aren’t changed. Its 
command-line syntax is: 


sort [—options] [file . . .] 


If no files are given on the command 
line, standard input is used. If several 
files are listed, they are treated as if 


by Allen Holub 


they were one big file and then sort- 
ed. It’s as if sort merged them all to- 
gether into a single file and then sort- 
ed that single file. 

Various command-line options are 
supported (see Table 1, page 24). 
These are: 


- 





—b—lIgnore leading white space 
(blanks, tabs, form-feeds, and so 
on). If you're sorting on fields (see 
below), then white space follow- 
ing the field delimiter is ignored 
(even if the field delimiter itself is a 
space or tab). 

—d—Sort in dictionary order. That is, 
all characters except letters and 
numbers are ignored for the pur- 
poses of comparison—for exam- 
ple, hand puppet will be between 
handmade and handsaw in the 
output. 

—f—Fold uppercase letters into low- 
ercase before comparing. Normal- 
ly uppercase letters have a higher 
value than lowercase—foo will 
follow Foo in the output file. 

—n—This flag is treated in a very dif- 
ferent way from the way the Unix 
sort utility treats it. Here, if two 
numbers (with an optional leading 
— sign) appear in the same posi- 
tion on two lines, they are treated 
as a single number rather than asa 
collection of ASCII characters. For 
example, the list 


2 
1 
20 
10 


will normally be sorted as a collec- 
tion of ASCII characters, yielding 


1 
10 
2 
20 


If —n is given on the command 


line, they’ll be sorted as 


1 
2 
10 
20 


Numbers are treated specially 
wherever they’re found, even if 
they're imbedded in a word, so 
the list 


wordz2 

word1 

word20 
~ word10 


will sort to 


word1 
word2 
word10 
word20 


if —n is specified. Note, though, 
that the numbers have to be at the 
same relative place on the line, so 


word 1 
word 2 
word 10 
~ word 20 


sorts to 


word 10 
word 20 
words 1 
words 2 


unless —d is also specified. 

Note that a version of stoi( ), the 
number-processing routine used 
for numeric processing, was origi- 
nally published in the May 1985 C 
Chest. (See Listing Two, page 83.) 
The version given here differs 
from the original in that it’s been 
scaled down to accept only deci- 
mal numbers (the original accept- 
ed hex and octal numbers too). 

—t<c>—tThe single character <c> 
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C Programmers! First database 
written exclusively for C 
is also royalty free 


“If you are looking for a sophisticated C Programmer’s database, db_ VISTA™ is it...” 
Dave Schmitt, President of Lattice, Inc. 


Designed exclusively for C, db_ VISTA™ 
is a royalty-free programmers DBMS. 
Both single and multi-user versions let 
you take full advantage of C, through ease 
of use, portability and efficiency. 


Written in C for C Programmers 


All functions use C conventions so you 
will find db VISTA easy to learn. db_ 
VISTA operates on most popular com- 
puters, and because it is written in C it can 
easily be ported to most computers. 


Royalty-Free, You only pay once 


Whether you're developing applications 
for a few customers, or for thousands, the 
price of db_ VISTA is the same. If you are 
currently paying royalties for a com- 
petitor’s database, consider switching to 
db_ VISTA and say goodbye to royalties. To 
help you make the change over to db_ 
VISTA, file transfer utilites are available for 
dBASE, R:base and ASCII files. 


More from your database applications 
with source code 


Source code includes all db__ VISTA lib- 
raries and utilities. 
1. Recompile our run-time libraries utili- 
zing non-standard compiler options. 
2. Create a debugging library including 
a function traceback by activating pre- 
processor commands embedded in the 
source code. 


Multi-user and LAN capability 


Information often needs to be shared. 
db VISTA has multi-user capability and 
supports simultaneous users in either 
multi-tasking or local area networking 
environments, allowing the same C appli- 
cations to run under UNIX and MS-DOS. 


Faster execution 
without data redundancy 


Less data redundancy means reducing 
disk storage requirements and maximiz- 
ing data access performance. A customer 
evaluating a leading competitor’s product 
prior to purchasing db_VISTA bench- 
marked db_VISTA’s retrieval time to be 
276% faster than a leading competitor. 


Complete documentation included 


User manual contains 193 pages, 8 dia- 
grams, 10 tables, appendices, an exten- 
sive index, plus a database application 
example. 9 chapters with complete in- 
structions. 


Introducing db_ QUERY™ 


With db QUERY you can ask more of 
your database, db_ QUERY is a linkable, 
SQL-based ad hoc query and report writ- 
ing facility. It’s also royalty-free. 


30 day Money-Back Guarantee 
We wish to give you the opportunity to 


Circle no. 206 on reader service card. 


*Limited offer available to end user purcha 
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try db_ VISTA for 30 days in your develop- 
ment environment and if not satisfied re- 
turn it for a full refund. 


Special Offer 


Free Falcon hard disk controller with 
purchase of db_ VISTA Multi-user with 
source. * 


Price Schedule 


ee. 
VISTA QUERY 
Single-user $195 $195 
Single-user with Source $495 $495 
Multi-user $495 $495 
Multi-user with Source $990 $990 


Free 90 days application development support 
All software not copy protected. 


Call Toll Free Today! 


To order or for information, call TOLL 
FREE 1-800-843-3313, at the tone touch 
700-992 or 206-747-5570. 

VISA and MASTERCARD Accepted 


Database Record and File Sizes 

¢ Maximum record length limited only 
by accessible RAM 

¢ Maximum records per file is 16,777,215 

¢ No limit on number of records or set 
types 

¢ Maximum file size limited only by 
available disk storage 

¢ Maximum of 255 index and data files 


Keys and Sets 

¢ Key lengths may be a maximum of 246 
bytes 

¢ No limit on maximum number of key 
fields per record - any or all fields may 
be keys with the option of making each 
key unique or duplicate 

¢ No limit on maximum number of fields 
per record, sets per database, or sort 
fields per set 

¢ No limit on maximum number of 
member record types per set 


Utilities 
+ Database definition language processor 
¢ Interactive database access utility 
¢ Database consistency check utility 
¢ Database initialization utility 
¢ Multi-user file locks clear utility 
¢ Key file build utility 
¢ Data field alignment check utility 
¢ Database dictionary print utility 
¢ Key file dump utility 
¢ ASCII file import and export utility 


RAIMA" 


CORPORATION 


12201 S.E. Tenth Street 

Bellevue, WA 98005 USA 

(206) 747-5570 

Telex: 9103330300 BCN RIVERTON 


db_ VISTA Version 2.11 Database Mangement System for C 





Read what others say about db_ VISTA.. 


“If you are looking for a sophisticated C 
programmers database, db_VISTA is it. 
In either a single or multi-user environ- 
ment, db_VISTA lets you easily build 
complex databases with many intercon- 
nected record types. The multi-user im- 
plementation handles data efficiently 
with a LAN and Raima’s customer sup- 
port and documentation is excellent. 
Source code availability and a royalty-free 
run-time is a big plus.” 

Dave Schmitt, President 
Lattice, Inc. 


“Not ‘yet another user-friendly database’, 

it is a DBMS aimed at the technical C 

programmer instead of the non-technical 
end-user”. 

Hal Schoolcraft, Data Based Advisor 

March, 1985 


“On the whole, I have found db_ VISTA 
easy to use, very fast with a key find, and 
powerful enough for any DBMS use I can 
imagine on a microcomputer”. 

Michael Wilson, Computer Language 

September, 1985 





Features 

¢ Multi-user support allows flexibility to 
run on local area networks 

¢ File structure is based on the B-tree 
indexing method and the network data- 
base model 

¢ Run-time size is variable - will run in as 
little as 64K, recommended RAM size is 
256K 

¢ Transaction processing assures multi- 
user database consistency 

¢ File locking support provides read and 
write locks on shared databases 

¢ SQL based db_ QUERY is linkable 
and royalty free 

¢ Operating system support for MS-DOS, 
PC-DOS, Unix, Xenix or Macintosh 

¢ C compiler support for Lattice, Micro- 
soft, DeSmet, Aztec, Computer Innova- 
tions, Xenix and Unix 

¢ File transfer utilities for ASCII, dBASE 
and R:base optional 


Independent Benchmark Results 
Eleven key retrieval tests on sequentially 
and randomly created key files. Bench- 
mark procedure adapted from “Bench- 
marking Database Systems: A Systematic 
Approach” by Bitton, DeWitt, and Tur- 
byfill, December, 1983 


Total Retrieval Time of 11 Tests 
db_ VISTA 
Leading competitor 


671.24 
:1,856.43 







1 (800) 843-3313 


at the tone touch 700-992 
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ses directly from Raima Corporation 
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(continued from page 22) 


specifies a field separator charac- 
ter (the default is a tab, thus the 2). 
For example, —t, tells sort to use a 
comma as a field separator. 


—p<num>-—Sort field <num> 


only where fields are delimited by 
the character specified with the 
—t argument. The leftmost field is 
field 1. For example, the file 


ant, bat, cow 
bat, cow, ant 


cow, ant, bat 


when sorted with the command 
line 


sort —t, —p2 file 


will yield 


cow, ant, bat 
ant, bat, cow 
bat, cow, ant 


Only the second field, rather than 
the entire line, is looked at by sort. 


—s<num>-—Specify a secondary 


key. When sorting fields, if the 
contents of the fields specified by 
the primary key are the same, 
then the secondary field is used to 
resolve differences. For example, 
the file 


ant, cow, COW 
bat, cow, ant 
cow, ant, bat 


when sorted with the command 
line 









Bort:--t-=pz ss file 
will yield 


cow, ant, bat 
bat, cow, ant 
ant, cow, COW 


Here, the last two lines both have 
cow in the primary sort field (field 
2), so they are ordered depending 
on what sort finds in the second- 
ary sort field (field 3). Given a file 
containing lines of the form 


<date>, <category>, 
<other stuff> 


my tax preparation can be done 
with the command line 


sort —n —t, —p2 —stl ledger 
> outfile 


Here the —n causes the dates to be 
sorted numerically, a comma is 
used to separate fields (—t,), the 
primary sort field is the category 
(—p2), and the secondary sort field 
is the date (—s1). The other fields 
on the line are ignored. The de- 
fault primary field is 1 (the left- 
most) if —s but no —p is given on 
the command line. 

—r—Do a reverse sort (sort in de- 
scending rather than ascending 
order). 

—T<str>—The <str> is prefixed to 
all intermediate file names. Inter- 
mediate files are usually called 
merge.1, merge.2, and so on. If you 
Say 


sort —T/tmp/ file 


then the temporary files will be 
called /tmp/merge.1, /tmp/ 
merge.2, and so on. Remember to 
put the trailing slash on the string 
if youre specifying a directory 
name (as compared to a RAMdisk 
designator or whatever). 

—u—Delete duplicate lines in the 
output. After the file is sorted, 
only one of a series of identical 
lines is output. 


Sorting Large Files 

Two general-purpose sort routines 
have been printed in this column: a 
quicksort routine (gsort( )) was print- 
ed in April 1985 and a shell sort 
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FEATURES: TECH PC TURBO QUAD 
BUSINESS SYSTEM.......Starting from $5999 
Tech Turbo PC/XT base unit in portable or desktop configuration with 640K, multiple serial 


ports, 20 megabyte hard disk, three Tech PC terminals, connecting cables, and networking 
software. 


Separate NEC V20 8088 Intel compatible 8 MHz CPU and up to 768K RAM for each terminal 
on the system. 


Two fully functional serial ports per terminal. 


Four users expandable to 32 users over dumb terminals or PC’s with terminal emulation 
software provided with the system. Capacity for unlimited number of local printers. 


Full support for multitasking multiterminal use with print spooling for multiple printers, 
background monitoring of the system, dial up bulletin board support, password protection, 
and file/record locking supporting PC network protocol. 


System support all popular software such as Wordstar, dBaselll, Lotus 123, Multimate, etc. 
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FEATURES: TECH PC TURBO 
TRIAD MULTIUSER .......Starting from $2599 


Tech Turbo PC/XT base unit with 640K, and two 360K disk drives, 20 megabyte hard disk. 
Separate Intel 80188 microprocessor running at 8 MHz and 512K for each terminal. 


Two high resolution monitors, two Selectric style Hi-Tek Keyboards, 50 feet of shielded 
cable to separate the two stations. 


System expandable to three terminals. 
System supports up to six printers. 


Full support for multitasking multiterminal use with print spooling for multiple printers, 
background monitoring of the system, dial up bulletin board support, password protection, 
and file/record locking supporting PC network protocol. 


System supports all popular software such as Wordstar, dBaselll, Lotus 123, Multimate, etc. 
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FEATURES: TECH PC 
TWIN MULTIUSER ........Starting from $1699 


Tech Turbo PC/XT base unit with 640K, and two 360K disk drives. 


~~ Two high resolution monitors, two Selectric style Hi-Tek keyboards, 50 feet of shielded 


Cable to separate the two stations. 
System supports up to six printers. 


Full software support with multi-level file security, electronic message facility to send and 
receive messages between users, password logon system, and system operator command 
level. 


System supports all popular software such as Wordstar, dBaselll, Lotus 123, Multimate, etc. 


wear 
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FEATURES: TECH PC QUAD 
BUSINESS SYSTEM .......Starting from $4499 


Tech Turbo PC/AT base unit in portable or desktop configuration with 512K, multiple serial 
ports, 20 megabyte high speed hard disk, three Tech PC terminals, connecting cables, and 
networking software. 


Four users expandable to eight users over dumb terminals or PC’s with terminal emulation 
software provided with the system. 


Capacity for up to 16 printers at remote sites with up to 6 local printers attached to the main unit. 
Each user can access 384K or more of RAM with memory expansion boards. 


Full support for multitasking multiterminal use with print spooling for central or terminal printing, 
background monitoring of the system, dial up bulletin board support, password protection, 
and file/record locking using a general-purpose ENQ/DEQ mechanism callable from user 
applications. 


System supports all popular software such as Wordstar, dBaselll, Lotus 123, Multimate, etc. 


THIRD PARTY MAINTENANCE AVAILABLE 
THROUGH MOHAWK DATA SCIENCES. 


Users only circle no. 279 on reader service card. Dealers only circle no. 245 on reader service card. 
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PLEASE ALLOW ONE WEEK FOR SHIPPING 


TECH PERSONAL COMPUTERS 


2131 South Hathaway, Santa Ana, California 92705 
TELEX: 272006 Answer Back-TECH FAX: 714/556-8325 


114/754-1170 


VISA, MASTERCHARGE 
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(ssort( )) was printed in March 1986. 
Both algorithms were discussed in 
the April 1985 column. The gsort( ) 
subroutine is also included in many 
compilers’ I/O libraries. All these 
routines have an identical calling 
syntax so they can be used inter- 
changeably. 

These sort routines all have one ma- 
jor limitation. The entire array being 
sorted has to be in memory at once. 





Sometimes you need to sort files that 
are larger than the amount of avail- 
able memory, however. This limita- 
tion is circumvented by using tempo- 
rary merge files. Sort reads as much 
input as it can, sorts that input, and 
then writes the sorted lines to a tem- 
porary file. It continues in this man- 
ner until the input is exhausted, creat- 
ing a bunch of temporary files, one 
for each pass. The program then 
merges the temporary files, writing 
the results to standard output. Finally, 
the temporaries are deleted. 


ATRON BUGBUSTERS 


GREASE BORLAND LIGHTNING 





“If I were starting a software company again, from scratch, Atron’s AT PROBE™ would be among my very first 
investments. Without Atron’s hardware-assisted, software debugging technology, the flash of Turbo Lightning™ 


would be a light-year away” 


Philippe Kahn, President, Borland 




















HOW BORLAND 
DOES SO MUCH, 
SO WELL, SO FAST 

We asked Borland 
International president 
Philippe Kahn to share 
his secrets for rapidly 
taking a good idea and 
turning it into rock-solid 
reality. How does the 
Borland team do so 
much, so well, so fast? 

He: begitis.: "4 
remember when Atron 
used the June 24, 1985 
Wall Street Journal chart 
of top-selling software in 
an ad?’ [Note: At that 
time, seven of the top ten ape  # 
software packages were (23 Hay 3 
created by Atron cus- . | 
tomers; it’s now now 
nine out of ten.| ‘“Side- 
Kick was number four, 
and I let Atron quote me 
in saying that there 
wouldn’t have been a 
SideKick without 
Atron’s hardware- 
assisted debuggers. 

“You might say light- 
ning has literally struck 
again. Turbo Lightning 
made number four on 
SoftSel’s Hotlist within weeks of its introduction! And 
again, I say we couldn’t have done it without Atron 
debugging technology. 

“Cleverly written code is, by definition tight, recur- 
sive, and terribly complex;’ he continues. ““Without the 
ability to externally track the execution of this code, 
competent debugging becomes very nearly impossible?’ 

Concludes Philippe, “And after Turbo Lightning was 
solid and reliable, Atron tuning software turned our 
Probes into performance analyzers. How do you think we 
greased our lightning?” 

Philippe, along with a couple million or so of your 
satisfied customers, we say congratulations on yet 
another best-selling product. We can’t wait to see what 
awesomely useful technology will come shooting out of 
Borland International next. 


Ste 


HOW BUGBUSTERS KEEP YOU FROM GETTING SLIMED 


The AT PROBE is a circuit board that 
plugs into your PC/AT. It has an 
umbilical which plugs into 
the 80287 socket and 
monitors all 80286 activity. 

Since AT PROBE can 
trace program execution in 
real time, and display the 
last 2048 memory cycles in 
symbolic or source-code 
form, you can easily answer 
the questions: “How did I 
get here?” and “What are 
those silly interrupts 
doing?” 

It can solve spooky 
debugging problems. 
Like finding where 
your program over- 
writes memory or I/O - 
impossible with soft- 
ware debuggers. 

You can even do 
source-level debugging 
in your favorite lan- 
guage, like C, Pascal or 
assembler. And after 
your application is 
debugged, the AT 
PROBE’s performance 
measurement software 
can isolate perfor- 
mance bottlenecks. 

Finally, the AT PROBE has its own 1-MByte of mem- 
ory. Hidden and write-protected. How else could you 
develop that really large program, where the symbol 
table would otherwise take up most of memory. 

LOOK AT IT THIS WAY. 

History shows that non-Atron customers don’t stand a 
very good chance of making the Top Ten list. Lightning 
really does have a way of striking twice! 

The PC PROBE™ is $1595 and the AT PROBE is 
$2495. So call Atron today. You can be busting some 
really scarey bugs tomorrow. And maybe, just like 
Borland, you can also bust some records. 


THE DEBUGGER COMPANY 
20665 Fourth Street @ Saratoga, CA 95070 @ 408/741-5900 


Copyright © 1985 by Atron Corp. PC PROBE™ and AT PROBE™ Atron. SideKick™ and Turbo Lightning™ Borland International, Inc., Adv. by TRBA, 408/258-2708. 
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The process is best illustrated with 
an example. Say that at most three 
input lines can be held in memory 
and a file containing 


good 
every 
boy 
favor 
deserves 


has to be sorted. Sort reads in the first 
three lines, sorts them, and then cre- 
ates a temporary file. It then repeats 
the process with the remaining two 
lines. The temporary files look like 


MERGE.1 MERGE.2 
boy deserves 
every favor 
good 


They are both sorted. The program 
now merges the files. It reads in the 
first line of each merge file 


boy 
deserves 


outputs the lesser line (boy) and re- 
places it with the next line from the 
temporary file that originally con- 
tained boy (merge.1): 


every 
deserves 


The program now repeats the 
same process on the two current 
lines, outputting deserves and replac- 
ing it with the next line from 
merge.2: 


every 
favor 


every is output and replaced by the 
last line in merge.1: 


good 


favor 


favor is now output. Because merge.2 
isnow empty, no input is fetched and 
the list contains the single word good, 
which is output in turn. Because all 
merge files are now empty, the pro- 
gram ends. 

The same process can be used 
when there's more than one merge 
file. The program reads in one line 
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_ What do QNX and UNIX have to do with 
architectural design? 

e design determines the environment in which you 

and your applications must survive. If the shear weight 

of the UNIX operating system brings the PC to its knees, 
pplications running under it will suffer. Unix was 
‘eived more than a decade and a half ago and the 
oduct today is the result of modifications, additions 

and patches by hundreds of programmers. The result is a 
arge and convoluted piece of software which needs the 
resources of an AT or more. 

_ _QNX’s superb performance and compact size is the result of 
one dedicated design team with a common purpose, and 
complete understanding of both the software and the 
nvironment in which it must run. It runs quickly and 
ficiently on PC’s and soars on an AT. Unlike Unix, QNX is 
pable of real time performance and is the undisputed 

oice for real time process control, and office systems. You 
n buy an OS that offers you a | to 3 user dead end on 
AT, OR, you can consider OQNX which allows you 
yywhere from | to 10 users on both PC’s and AT’s. And 
e don’t stop there. Unlike other Unix-type systems for 

_ PC’s, QNX is also a networked operating system. Not a 

_ patch-on network, but a fully integrated networking system 
for up to 255 micros. QNX allows you to start with a 
single machine and grow if and as required. There are no 
dedicated file servers and you can attach terminals (users) 

to any machine. To choose a solution which ignores 
networking, is closing the door on your future. 


Everyone is talking about Unix like systems, but no one 
wants to abandon the tremendous amount of DOS 
software available. QNX does not force you to make that 
_____ decision. You can run either PC DOS 2.1 or 3.1™ as one of 
-_QNX’s many tasks. (DOS File compatibility and DOS 
development tools are also available). Don’t misunderstand 























































_ Wasa major force in moving operating systems out of the 
1960's and into the 70’s. QNX however, was designed in 





us. We at Quantum have a great deal of respect for Unix. It 





the 80's and will be a driving force of the 1990's. Over 
20,000 systems have been sold since 1982. 


Quantum strongly believes that there are good reasons for 
buying ONX, DOS and Unix. If you want more than DOS 
and a working alternative to PC Unix, give us a call and we 
will discuss your needs. 


End-Users, VAR’s, OEM's and software developers are 
invited to take the ONX challenge. : 
© MULTI-USER: -10 serial terminals per PC, AT. 
@ MULTI-TASKING: -40 tasks per PC, AT. 


© NETWORKING: -255 machines. 
-up to 10,000 tasks and 2000 
users/network. 
-2.5 Megabit token ring. 


-2800 task switches/sec (AT). 


-Intertask communication between 
any of 1000's of tasks on any 
machine. _ 

-88K to 110K for ONX. 

-Executes as a task under ONX. 

-Standard Kernighan and Ritchie. 

-Single machine or networked. 
One to thousands of users. Full 


resource sharing of disks and 
devices on all machines. 


© REAL TIME: 
© MESSAGE PASSING: 


e¢ MEMORY: 

e PC DOS: 

© C Compiler: 
¢ Flexibility: 


© Support: -Online update system allows 
downloading of new releases 
over the phone. 
-Technical support hot line. 
e COST: -From US $450 for base system. 


-Call for runtime prices. 


-IBM PC, XT, AT™ (both real 
& protected) and compatibles. 


© HARDWARE SUPPORT: 
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. _ Moodie Drive HiTech Park 215 Stafford Rd. Ottawa, Ontario, Canada. K2H 9C1 Phone (613) 726-1893 


IBM PC, AT. XT AND PC-DOS ARE REG. TM OF INTERNATIONAL BUSINESS MACHINES CORP. UNIX IS A REG. TM OF AT&T BELL LABS 
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Make your PC or AT into a 


COMMUNICATING WORKSTATION 


yay Aan ts 


Use ZAP, the Communications System for Technical Users 


COMPLETE Communications for PROGRAMMING and ENGINEERING 


EMULATION of graphics and smart terminals is combined with the ability to TRANS- 
FER files reliably, CAPTURE interactive sessions, and transmit MESSAGES while 
also being able to swap between your mini or mainframe session and your PC application. 
SUSPEND alinetorun aPC application. Reconfigure features to fit the communications 
parameters and keyboard requirements of the host computer software. Complete technical 
documentation helps you understand and fit ZAP to your style. 


HIGHLIGHTS OF ZAP: 





Emulate TEKtronix 4010/14 and DEC VT 100, 102, 52 including 
variable rows and columns, windows, full graphics, and smooth scrolling. 
Reliable file transfer to/from any mainframes and PCs including KERMIT and 
XMODEM protocols plus you get a full copy of KERMIT. Transfer speeds ranging 
es 50 to 38,400 BAUD. Session control include printer dumps and save to 
isk. 
MACRO and Installation files (“scripts”) controllable by you. 
EMACS, EDT and VI “Script” files are included. ZAP is also used with other popu- 
lar software including graphics products like DISSPLA and SAS/GRAPH. 
CONFIGURABLE to communications, terminal features on the “other end”: 1, 2 
stop bits; 5, 6, 7 or 8 data bits; parity of odd, even, none, mark and space; remap all keys 
including the numeric pad and standard keyboard, set any “virtual” screen size. 
FullPC/MSDOS access to run any command or program that will fit in your systems 
memory. ZAP takes less than 64K. 
9 Comm ports are supported by ZAP. Plus full color in text and graphics make use of 
the IBM color, EGA cards, or Hercules Monochrome. 


ONLY ; 
$85 Spee 


335-D Washington St. 
Norwell, Mass. 02061 
617-659-1571 
800-821-2492 
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The C Programmer's Assistant 





easier. 


C ToolSet (formerly C Helper) 


includes: 


DIFF - Compares text files on a 


C TOOLSET © 


UNIX-like Utilities for 
Managing C Source Code 


No C Programmer should be 
without their assistant - C ToolSet 
from Solution Systems. The package 
consists of several utilities designed 
to help make C programming tasks 


GREP — Regular expression searches 
— ideal for finding a procedural call 
or a variable definition amid a large 
number of header and source files. 
FCHART — Traces the flow of 
control between the large modules 
of a program. 

PP (C Beautifier) — Formats C program 
files so they are easier to read. 
XREF (CCREF) - Cross references 
variables from a program. 


line-by-line basis or use CMP for 


byte-by-byte - indispensable for 


showing 


Available For MS-DOS. - $95 
changes among versions 


Of a program under development. 
So “intelligent” it stays in synch 
even when you add 100 lines. 


S Code | 
> ource Code Included ystems T™ 


ONLY : 
$95 Solution 


335 Washington St. 
Norwell, MA 02062 
617-659-1571 


800-821-2492 
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C CHEST 
(continued from page 26) 


from each file, outputs the line hav- 
ing the lowest value, and then re- 
places that line with the next line 
from the appropriate merge file, con- 
tinuing the process until all the 
merge files are empty. 

The problem here is selecting the 
line having the smallest value. The 
simplest method is to keep an argv- 
like array of pointers to strings, 
where each string is one line from a 
merge file. The array is sorted on 
each pass, and the lowest element is 
output. Sorting the array each time 
isn't very efficient, though. You're 
constantly resorting an almost-sorted 
array. A better way to store the lines 
is in a data structure called a heap. A 
heap is an array that has the proper- 
ty that the Kth element is always less 
than the (2K)th and (2K+1)th ele- 
ments. For example, array/1) is less 
than both array(2)] and array/[3), ar- 
ray(2] is less than both array/4] and 
array[5], array(3] is less than both ar- 
ray(6] and array[7], and so on. You 
can look at a heap as a sort of binary 
tree, where the Kth element is the 
parent node and the (2K)th and 
(2K+1)th elements are the children. 
All sorted arrays are heaps; on the 
other hand, a heap is not necessarily 
a sorted array. 

Heaps have two additional proper- 
ties that are of use here: The first ele- 
ment is always the smallest element, 
and a new element can be inserted in 
the heap in O(logN) time, where N is 
the heap size. 


Implementation Details 

Sort is presented in Listing One, page 
68. Various #defines are on lines 
18— 28. MAXBUF is the maximum line 
length (now 132 columns). Lines long- 
er than this will be treated as if they 
were two lines. MAXLINEC (now 1024) 
is the maximum number of input 
lines than can be read before a merge 
file is created. MAXTMP (now 18) is 
the maximum number of temporary 
files that can be open at once. This 
number is limited by either your 
compiler or the operating system. 
Two file descriptors are needed for 
stdout and stderr, so I’m assuming 
here that 20 files may be open at one 
time. This assumption isn’t true in 
some CP/M systems that only allow 
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eight files. In DOS, to have 20 file de- 
scriptors available, you must say 


files=20 


in your config.sys file. It will speed 
up your I/O to put 


buffers= 20 


up there too. 

The global variables on lines 36—45 
are all set by getargs( ), depending on 
what it finds on the.command line. 
(The source for getargs( ) isn’t in the 
listing; see below for availability.) 
The Argtab on lines 47—61 is also 
used by getargs( ). Global variables 
not concerned with command-line 
switches are declared on lines 
70—88. Options is set to true by 
main( ) if any of the command-line 
switches that affect the sort order are 
present. Lines and Linec are used in 
the same way as argv and argc. Lines 
holds pointers to the input lines read 
in during the initial sorting passes 
(not the merge passes). Linec is the 
number of valid lines in Lines. Argv 
and Argc are just global copies of the 
argv and argc used by main( ). 

The HEAP structure defined on 
lines 80— 85 is used to define the heap 
needed in merge-file processing. You 
need to remember two things about 
every heap entry—the contents of 
the current line in the merge file and 
the FILE pointer associated with that 
merge file. So you use a structure 
having two fields: string and file. The 
heap itself is an array, MAXTMP ele- 
ments long, of pointers to HEAP struc- 
tures. I chose to use an array of point- 
ers rather than an array of structures 
because it takes much less time to ex- 
change two pointers than it does to 
exchange two, rather large, struc- 
tures. This pointer array is created 
using malloc( ), and it is pointed at by 
the global variable Heap (defined on 
line 87). 

The routine pheap( ) (lines 95 — 108) 
is a debugging routine that prints out 
the current heap contents. Note that 
if DEBUG isn’t #defined, then pheap( ) 
will be #defined as a null macro (one 
that expands to a null string). This 
way you don’t have to put #ifdef DE- 
BUG/*endif directives around all the 
calls to pheap( ). 

Lines are read into memory by 
gtext( ) (line 358f). It loads the input 
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lines into an argv-like array of point- 
ers to strings (Lines). The routines that 
call gtext don’t know that it may be 
getting input from several files (as list- 
ed on the command line). Gtext [or 
rather nextfile( ) (line 324f), which is 
called by gtext( )] takes care of all the 
argv processing needed to open and 
read the various files when appropri- 
ate. 

Skipping forward, the initial sort- 
ing of the Lines array is done by the 
call to ssort( ) on line 617. The calling 
syntax for ssort( ) is shown in Table 
2, page 24. 


The beauty of passing a pointer toa 
subroutine becomes obvious when 
looking at a routine such as ssort( ). 
Not only can an array of pointers to 
strings be sorted with the routine 
shown in Table 2 but also a more 
complicated sort (such as the one re- 
quired by my sorting program) can 
be performed by the same sort sub- 
routine. Just pass it a pointer to a 
more complicated comparison func- 
tion. The comparison function used 
here is actually several subroutines 
defined on lines 172-320. 
Argvcmp( ) (line 172f) is used when 











RPG COMPILER FOR IBM PC 

The new Lattice RPG II compiler is 
ideally suited for creating commercial 
applications for MS-DOS. Allow your 
current RPG II programmers to be 
productive on MS-DOS. 

The Lattice RPG II compiler is compat- 
ible with System III, System/34 and /36 
RPG II compilers, it uses ASCII files and 
MS-DOS command language, plus has 
ISAM compatibility with dBASE IIL. 
$750.00 and no run time fees. 





VERSION 3 OF THE LATTICE 
MS-DOS C COMPILER IS NOW 
AVAILABLE. 

This is a major upgrade of 
the product and is available to 
registered users for a $45 update 
fee. Non-registered $60. The list 
price remains $500. 


New compiler features include: 
¢ ANSI language constructs... 
“unsigned” as a modifier 
“void” data type 
“enum” data type 
structure assignments, arguments, 
and returns 
argument type checking 
¢ Inline code 8087/80287 
80186/80286 
¢ Code generation 
The compiler also contains 
numerous improvements such as 
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Lattice Works 


better aliasing algorithms, more 
efficient code generation, and more 
flexible segmentation. The library 
includes more than 200 new 
functions in the following 
categories: 
¢ ANSI/UNIX/XENIX compatibility 
¢ Extended support for MS-DOS 
¢ Extended support for networking, 
including file sharing, file locking, 
and I/O redirection 
¢ Flexible error handling via user 
traps and exits 
The Library has also been 
re-engineered to produce much 
smaller executables. 


LATTICE ANNOUNCES NEW DATA 
ENCRYPTION SOFTWARE 

Now you can keep your 
confidential data confidential. 
Thanks to new SecretDisk, a new 
data encryption system for IBM PC, 
XT, AT and compatibles. 

Utilizing the NBS Data Encryption 
Standard, SecretDisk provides 
complete security for salaries, 
customer lists, or other sensitive 
information stored on a floppy or 
hard disk. SecretDisk is loaded as a 
disk driver by MS-DOS. It creates 
new DOS drives (like D:) on floppy 
or hard disks where all data and 
programs are always fully 
encrypted. 

SecretDisk is extremely easy to 
use. A password is entered when the 
system is booted, and protection can 
be switched on and off with a single 
password controlled command line. 
However, without the password, 
there is no way to access the 
encrypted files. $59.95. 

Contact Lattice, to discuss your 
programming needs. Lattice 
provides C compilers and cross 
compilers for many environments 
including Tandy, Sony, Hewlett- 
Packard, Tandem, and IBM 
Mainframe. Corporate license 
agreements available. 
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(CRE! 
(continued from page 29) 


no command-line switches that af- 
fect the sort order are specified; 
gcemp() (line 180f) is called when 
command-line switches are speci- 
fied. Both routines are passed point- 
ers to string pointers (that is, the ad- 
dresses of two elements of Lines) and 
both call a workhorse function to ac- 
tually do the work. Argvcmp( ) calls 
strcemp( ) after stripping off one level 
of indirection; gemp( ) calls gemp1( ) 
(line 194f), which in turn calls qemp2 
(line 228f). The former takes care of 
sort fields, whereas the latter does 
the actual comparisons—doing 
things such as skipping white space, 
mapping uppercase into lowercase 
characters, and so forth—as specified 
by command-line switches. 

Once the lines are sorted, they are 
written out via the subroutine out- 
text( ) (line 422f). Outtext will write to 
standard output if no merge files 
need to be created; otherwise it will 
write to a temporary file. It outputs 
the entire Lines array and deletes the 









these features: 


global cross reference 


manual overlays 
load map 


(800) 833-3061 


requires Z8O CP/M 2.2 
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1622 N. Main St., Butler, PA 16001 
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memory used by the strings them- 
selves (as compared to the memory 
used by the pointers to those strings). 

As the last step in the sort, all the 
temporary files are merged together 
and the result sent to standard out- 
put. The actual merging is done in 
merge( ) (line 542f). The routine open 
_mergefiles( ) (line 455f) creates the 
heap, opens all the merge files, and 
reads the first line from each merge 
file into the heap. The heap is then 
initialized with the ssort call on line 
546 (remember, a sorted array is a le- 
gal heap). The while loop on lines 
548—566 prints the smallest element 
of the heap (the one pointed to by 
“Heap) and then reads another line 
from the appropriate file. If there are 
no more lines to read, the file is 
closed and the heap is made smaller 
by copying the entire heap, over- 
writing the first entry, and decre- 
menting nfiles. Finally, reheap( ) is 
called to put the new entry at its 
proper place in the heap. 

Reheap( ) (line 507f) reorders the 
heap in a manner similar to a binary- 
tree search (except that reheap( ) isn't 


uper Linker + 


The SLR SuperLinker Plus is 3 - 10 times 
faster than any other linker, and look at 


link a full 64K output (COM, HEX, SPR or PRL) 
works with Microsoft Fortran, Basic, Cobol 
supports 32 character externals (SLR format) 
full drive/user support with alternate DU search 
supports 8 address spaces 

fill uninitialized spaces with O or FF 


DSD80/SID compatible .SYM file 


Or greater 32K TPA 


NG 


(412) 282-0864 
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recursive). It compares the parent el- 
ement to the two children and, if the 
parent is smaller than a child, trans- 
poses the two elements. The process 
is then repeated with the newly 
transposed child used as the parent 
node. This way the new entry perco- 
lates to its proper position in the 
heap. Unlike other ‘‘percolating’’ 
strategies, such as bubble sort, reheap 
is efficient, using at most log,N swaps, 
where N is the heap size rounded up 
to the nearest power of 2. 


Limitations 

There are practical limits on the 
amount of data that can be sorted. Be- 
cause each merge file can contain at 
most 1,024 lines and 18 merge files 
are permitted, only 18,432 lines can 
be sorted (split up into as many input 
files as you like). Another consider- 
ation is the amount of space available 
to malloc (about 58K in my version of 
sort). Again, because this number lim- 
its the size of a merge file, there can 
be no more than 58K X 1,024 bytes in 
the combined source files (about a 
megabyte). Of course this last num- 
ber will vary a little depending on 
the line lengths, but it’s close. In prac- 
tice, these limits haven’t been a prob- 
lem, but you may need to go to a 
large-model version of this program 
(to increase the amount of space 
available from malloc) or use a more 
sophisticated merge algorithm. 


Availability 

The source code for the entire pro- 
gram this month (including the ge- 
targs( ), ssort( ),and stoi( ) routines) is 


available on CompuServe in the DDJ 


Forum. It’s also available on an IBM 
PC-compatible disk for $25 from Soft- 
ware Engineering Consultants, P.O. 
Box 5679, Berkeley, CA 94705. The 
disk comes with an executable ver- 
sion and source code. 

Getargs( ) and stoi( ) were original- 
ly published in the May 1985 C Chest; 
ssort( ) was published in the March 
1986 C Chest. The source for all three 
routines is also available as part of the 
/Util utility program package. It costs 
$29.95 and is available from DDJ. (See 
the ad in the DDJ ad catalog in this 
issue, page 73.) DDJ 
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LANGUAGES 


Lattice C New 3.0 Version 


The best selling C Compiler has been 
upgraded to give you more functions and 
features. Lattice C 3.0 contains 200 new 
library functions, better code generation, 
support for new data types (void, enum, un- 
signed char, unsigned long), support for the 
80186/80286 instruction set and the ability to 
generate in-line 8087/80287 instructions. 
Lattice C is the CCompiler for professional 
developers. 


RUN/C—The C Interpreter 
Upgraded Version 

Learn C the natural way with RUN/C. The 
user interface is similar to BASIC with easy 
familiar commands. The new 2.0 version of 
RUN/C comes with a full-screen editor and 
other enhancements. 


RUN/C Professional New 


All RUN/C’s capabilities plus powerful 
features for program development. Load your 
favorite object libraries with RUN/C Profes- 
sional. Contains a full-screen editor and 
source code debugging facilities. 


Mark Williams 
C Programming System 
A complete C development environment. 


Pro Pascal 

A truly standard Pascal. Produces fast, tight 
code with plenty of compile time options and 
simple one-line commands. 


BetterBASIC New Version 


Now you can program in BASIC and use the 
full memory of your PC, create structured 
programs using functions and procedures, 
make your own library modules and more. 
Now compatible with Microsoft BASIC. 


LANGUAGE UTILITIES 
Plink86 Plus 


An overlay linkage editor for linking 
8086/8088 object modules. Supports an 
unlimited size file, unlimited number of 
modules and up to 4095 hierarchical overlays 
stacked as many as 32 levels deep. Plink86 
Plus contains new features for memory 
caching, library allocation, file merging and 
overlay reloading. 


Pfix86 Plus 
A symbolic and source level advanced 
debugger for programming professionals. 
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For serious programmers, good isn't good enough. You need the best 
... the best tools, the best advice and the best support. 


At Lifeboat, we've been selling te programmers since 1976, so we 
know quality when we see it. And we're committed to a full-service 
program that goes beyond just selling you the best software at 
competitive prices. Our expert staff can help you decide which 
programs are best for your needs and provide you with all the 
technical support you may require. You can rely on Lifeboat for the 
complete solution to your programming needs. 


C-SPRITE 


Symbolic debugging at both source level and 
machine level. Monitor your program by 
setting breakpoints, examining registers and 
variables, or single-stepping through code. 
Handle a set of commands as a macro. 
C-SPRITE and the Lattice C Compiler are 

a natural pair for program development 

and debugging. 


BASTOC 


A BASIC to C translator for the BASIC 
programmer who wants to upgrade to C. 


EDITORS 
LSE 


A powerful yet inexpensive full-screen editor 
designed for efficiency and ease of use. Its 
speed is optimized by writing directly to video 
memory. The Lattice Screen Editor provides a 
multi-window environment, ability to repro- 
gram keys, support for keyboard macros, an 
undo command, an error tracking mode, 
on-line help and more. 


VEDIT Plus 


A full-screen text editor for program 
development and word processing. It contains 
‘powerful features including use of macros, 
on-line help facility, paragraph formatting, 
and file comparison. 


Pmate 


The programmer's editor with an extensive 
macro command language. Compile in the 
background while you continue to edit files. 


EMACS 


Customizable editor including windowing, 
multi-tasking and special modes for C 
and Pascal. 


FUNCTIONS 
C-Food Smorgasbord 


Library of time saving utility functions 
including a BCD package, an IBM PC BIOS 
interface, level 0 1/0 functions, a terminal 
independence package and more. 


Essential C Utility Library 
Over 300 functions, with special attention 


given to screen handling, windows and 
business graphics. Source code is included. 


For you, good Is just not good enough. 


PforCe Brand New 


An optimized library of an impressive 400 plus 
functions and subsystems. Included Is a 
window management system with overlap- 
ping or tiled windows and a database system 
with B-tree file structure. Several pre-coded 
screens including ‘‘Lotus”’ style are supplied. 
And there’s much more! Routines for interrupt 
driven communications, background tasks, 
and string/table parsing, along with functions 
for field/screen editing and validation are all 
part of this superbly written and documented 
software. Complete source code is included. 


The Greenleaf Comm Library 


A library of over 120 communication routines. 
Contains functions to create interrupt driven 
routines or perform direct |/O to multiple 
Comm Ports. Its strengths are in asynchro- 
nous communications, interrupt mode, mo- 
dem control, XMODEM, XON/XOFF and flow 
control. Interfaces with Lattice, Microsoft, 
Wizard, Desmet,-C186, Aztec and Mark 
Williams C compilers. 


The Greenleaf Functions 


A mature library of over 200 functions. 
Version 3.0 offers all new indexed docu- 
mentation, with an abundance of examples. 
Source code included. 


GRAPHICS and 
SCREEN DESIGN 


GSS*CGI GRAPHICS New 


The GSS Computer Graphics Interface is 
designed for creating high performance 
graphics-based applications. GSS*CGI speeds 
up application development and provides 
compatibility with a wide range of peripherals. 
It's the only CGI implementation that provides 
true device-independence for both raster and 
vector graphics. Language bindings are 
available to support development of GSS*CGI 
based applications using Lattice C, Microsoft 
C, FORTRAN, Pascal, BASIC Compiler and 
Macro Assembler. Products in the GSS*CGI 
GRAPHICS line include the GSS Graphics 
Development Toolkit, the GSS Kernel System, 
the GSS Plotting System and the GSS 
Metafile Interpreter. 


Essential Graphics New 


A brand new graphics library for C 
programmers with the emphasis placed on 
ease of use and portability. No royalties. 


Multi-Halo 


Library of over 200 graphics functions, 
supporting all of the popular graphics boards. 


Panel 
A powerful tool for interactive screen design. 


For more information on these and other 
products in our complete line call: 


1-800-847-7078 In NY: 914-332-1875 
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Bet eh OOPri i 


The Full-Service Source for Programming Software. 


ARTICLES 


How to Fix 
Line Glitches 


by Joe Marasco 





ost telecom- 
Mw munications 
users are ac- 


customed to getting er- 
ror-free messages 
when moving blocks 
of data during file 
transfer operations. 
This situation differs greatly from normal bulletin board 
operations or from using a remote computer interactive- 
ly. In these situations, most people don’t even flinch 
when Ma Bell routes their call over barbed wire, and the 
ubiquitous ~ appears. Glitches on the line are almost tak- 
en for granted, and rightly so, because the ‘‘error’’ is obvi- 
ous and immediately discounted. When transferring 
files, and in particular binary files, however, one bit error 
can be fatal, and more important, there is no easy way to 
detect it. It is for this reason that error-checking mecha- 
nisms are a fact of life in the telecommunications world. 

The most common forms of error checking are the sim- 
ple parity check and the CRC (cyclical redundancy code) 
check. ( For an extensive discussion of CRC techniques, see 
Terry Ritter’s article, “The Great CRC Mystery,” in the Feb- 
ruary 1986 issue of DDJ.—ed.) In these schemes, one or 
more bits are computed when each block is sent; the 
block then contains the message bits and the appended 
computed bits. The receiver recomputes the check bit or 
bits using the message bits only and compares the result 
to the computed bits sent. If they match, an ACK is sent to 
the transmitter. If there is no match, a NAK is sent. The 
transmitter must then send the block again. CRCs provide 
a high degree of robustness for a small overhead. 

In some applications, however, retransmissions are 
prohibitively expensive. When data is coming from very 
far away—say, from Saturn—and in large blocks, the 
time lag to resend the block can be significant. If the data 
has a real-time aspect to it, retransmission can in effect be 
worthless because, by the time it is evident that old data 
needs to be resent, new data may already be in the queue. 

Forward error correction addresses these problems. 





Joe Marasco, Billybob Software, P.O. Box 363, Belmont, CA 
94002-0363. 


© 1986, Billybob Software. All rights reserved. 
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‘orward erro re orrecti on deals — 
il Ismission errors by 


n as the data are 








The key idea is that by 
giving up some of the 
transmission  band- 
width — sacrificing 
more message bits for 
overhead bits— we can 
not only detect the 
presence of an error 
but also correct the error at the receiver. The basic notion 
is that we never do a retransmission; we design the sys- 
tem subject to a known noise environment such that we 
can ‘‘fix’’ all ‘“‘broken”’ packets when we get them. 


Single-Bit Errors 

Let's demonstrate this principle with a concrete example 
using the simplest of these codes, the Hamming code.! 
The Hamming code enables you not only to detect the 
presence of one bit error in a block but also to locate its 
position and hence correct it. For now let’s assume we are 
only concerned with single-bit errors. 

For the sake of example, let us assume that we are going 
to transmit a 15-bit block. It turns out (we’ll show you how 
later) that it takes 4 bits of ‘parity’ check for a Hamming 
code for this block size, so we have only 11 bits of data left 
for the “message.”’ Although this is a high overhead, it is 
purely a result of having such a small block; the situation 
improves radically as we go to larger blocks. We use a 
small message here for ease of exposition. 

Because we are going to send 15 bits, we are going to 
have to localize the bit error to one of 15 positions. If we 
make a table of the 15 positions and their binary repre- 
sentations, we can add a third column that addresses the 
question of which one of the four parity checks should be 
applied to each bit. (See Table 1, page 33.) 

Notice that the entries in the parity check column are 
unique, as well they should be. All we have done really is 
to say that if the ‘‘one bit” is in error, it will affect all the 
“positions” that have a “‘one bit,” and so on. We can re- 
write Table 1 by noting explicitly which bits or positions 
are governed by each parity check (C1, C2, C3, or C4), as 
shown in Table 2, page 33. 

We're now almost ready to encode a message! The trick 
is to reserve bits 1, 2, 4, and 8 for the check bits, leaving 3, 
5,6, 7,9, 10, 11, 12, 13, 14, and 15 for the message bits. Let’s 
also decide that the total number of bits governed by any 
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check must be even. Here’s an arbitrary message: 


bee oe 4 Sb 87: 89-10 At 12.13 14:35 
Coe Gas ee eee, ee. ON Eee |g 


Now let’s compute C1, which is governed by the parity 
of the bits shown in Table 2. Looking at the odd bits from 3 
to 15, we count five 1s, so for the parity to be even, C1 
must be a 1. Our message now looks like this: 


F223 4567 69 720-19 12:13:32 5 
12 to 011 4 OS ee ae 


To compute C2, we do the same thing for the bits listed 
under C2 in Table 2. Looking at all the bits except for 2, 
which we are trying to find, we count six 1s, which is 
even. So C2 must be a 0. This yields: 


123° 4:5 6 7 -89.40:10-42-49. 14:45 
F-6ct CaO") 4.4.0-- F428 8a 


You can do C3 and C4 by yourself. The final block, con- 
taining the message and check bits, should look like this: 


12345678 9 10 11-12 13°14 15 
19-10 '0.1.1:050 223: 2-2 8 


So the message sent would be “101001100110101.”’ 

What happens at the receiver? Clearly, if the message is 
received with no errors, each parity check will pass, and, 
by definition, we ascribe a 0 to a good parity check. When 
we make a number out of the four binary digits from the 
parity check, we get 0000 for the location of the error. 
This value is called the syndrome; a zero value for the 
syndrome means there were no errors. 

Now let us suppose that an error is made in transmis- 
sion. Suppose that the error occurs in the fifth bit sent. 
Our table then looks like the one shown in Table 3, right. 
Applying the parity checks as given in Table 3, one by 
one, we have the table shown in Table 4, right. And when 
we construct the syndrome (C4C3C2C1), we get 


0101 —> 5 —> error is in the fifth bit 


So now we know that all we have to do to correct the 
message is to invert the fifth bit, making it a 0 instead of a 
1. The original message is recovered. 

There is something very nice about the Hamming code 
and all forward error correction codes in general. Note 
that once the encoding is done, there is a total equality 
between the original message bits and the computed 
check bits. It doesn’t matter at all if during the transmis- 
sion a data bit or a check bit gets squashed—they are all 
on an equal footing. If a check bit gets reversed, it will be 
corrected: in effect the original message gets through OK 
and doesn’t need “correcting.” 


Two-Bit Errors and More 

What happens with this simple code when two bit errors 
occur? Try it! You'll find that 2-bit errors in the channel 
will cause the decoder to ‘‘miscorrect,” introducing yet a 
third bit in error. This is indeed a sad state of affairs. 
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At the cost of one additional check bit we can improve 
the situation, however. Let the zeroth bit be the total pari- 
ty after the other 15 bits have been encoded. Now we 
have an interesting situation. If the syndrome is zero and 
the parity bit is OK, we have a good message. If we have 
one bit error in the 15 bits, we have a nonzero syndrome 
and a bad parity bit; we can locate the bad bit as before. If 
just the parity bit itself gets reversed, the syndrome will 
be zero, so we'll know it’s just the parity bit. Finally, and 
most important, if there are 2-bit errors anywhere, we 
will get anonzero syndrome and a good parity bit. That is 
the unmistakable signature of a 2-bit error. So what we 
now have is much better: a code that corrects any single- 
bit error and detects all 2-bit errors. 

To let you try this out, I’ve written a blatant hack. (See 
Listing One, page 84.) You input an 11-bit message, and the 
program computes and displays the completed 16-bit 
block that would be transmitted. You can then type in the 
“received” message, corrupting one or more of the bits, 
and the decoder will tell you which bit is in error and 
display the corrected message. 

We've just scratched the surface. Hamming codes are 
the first step in doing forward error correction. You've 


Position Binary Representation 
0001 
0010 
0011 
0100 
0101 
0110 
O11) 
1000 
1001 
1010 
1011 
1100 
1101 
1110 
q1it 
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, 10, 11, 14, 15 
12, 13, 14, 15 


12 13 #14 ~«15 
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1 QO 1 recvd 


11, 13, 15 —> fails —> 1 
11,14, 15 —> passes— > 0 
,18, 14,15 —=> fails —— | 
, 13, 14, 15 —> passes— > 0 





Table 4: The parity checks locate the error (0101 = 5 in binary). 
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LINE GLITCHES 
(continued from page 33) 


probably deduced by now that you can correct 2™—1 bits 
of total information with m bits of parity check (subject to 
only 1-bit errors, of course!). So with 10 bits set aside to do 
the checks, you have 1023 — 10, or 1013 bits of informa- 
tion sent. Even if you include the additional parity bit for 
2-bit errors, this represents an overhead of about 1 per- 
cent, which is not bad when you consider that you will 
correct all 1-bit errors at the receiver and detect blocks 
with 2-bit errors. 

The real power of forward error correction comes from 
being able to do better, however. More complicated codes 
can correct not only single-bit errors but also multiple-bit 
errors. And, because for some channels the predominant 
mode is not single-bit errors but errors that come in bunch- 
es, there are codes that are better suited to correcting burst 
errors. There are also codes that handle both single-bit 
errors and multiple bursts. If you are interested, you can 
learn more by looking up the BCH and Reed Solomon codes 
in the references at the end of this article. 


One Last Note 

Communications is often thought of as getting informa- 
tion from here to there. Another way of looking at it is 
getting information from then to now—that is, all these 
forward error correction schemes can be applied to disk 
writing and reading. When you fetch a block from a disk, 












TOOL KIT 


- Linker and Librarian 
- Cross Reference Facility 
- Symbol Formatter Utility 
- Object Module Translator 
e Green Hills C 68000/10/20 
Optimizing Compilers 
e Symbolic Debuggers 
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60 Aberdeen Avenue, Cambridge, MA 02138 (617) 491-4180 
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68000 
68010 


WE ARE PROUD TO ANNOUNCE THE BIRTH OF THE NEWEST MEMBERS 
OF OUR 68000 FAMILY . . . YOUR 68020 TOOLS ARE HERE! 


FEATURES 


e 68000/10/20 Assembler e Written in C; fast, accurate, portable. 
ae aeons ¢ Supports 68000 and 68010. 
‘ eae ative e 5,000 line test suite included. 


e EXORmacs compatible. 

e Produces full listings and maps. 

e Outputs S-records and Tek-Hex formats. 
e Runs native or cross. Extensive libraries. 
e Supports OASYS compilers. 

e Generates PROMable output and PIC. 
e Full Floating Point support. 


good disk controller software can do an FEC maneuver 
and fix up the block if it was written or read incorrectly. 

Use of these schemes enables the cost of disk hardware 
to come down because lower precision mechanical assem- 
blies can be used; systems can be designed to have higher 
rates of read/write errors if we know we can correct for 
them. Perhaps the most stunning demonstration of this 
phenomenon is the audio compact disc player. The digital 
music that is retrieved is encoded with a sophisticated 
Reed Solomon forward error correction code that enables 
magnificent sound with less than perfect media. That you 
can buy one of these at less than $200 is a remarkable 
example of intelligent hardware and software integration. 


Note 
1.R. W. Hamming, Coding and Information Theory (Engle- 
wood Cliffs, N.J.: Prentice-Hall, 1980). 
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AVAILABILITY 
VAX, microVAX, 8600, Sun, Pyramid, 
Masscomp, IBM/PC, OASYS Attached 
Processors for VAX and PC, others. 
Runs under VMS, Bsd 4.2, System V, 
MS/DOS, dozens more. 

You name it. . . 


We provide a “One-Stop Shopping” 
service for more than 100 products 
running on, and/or targeting to, the 
most popular 32-, 16- and 8-bit 
micros and operating systems. 


















We Specialize In: 

Cross/Native Compilers C, Pascal, Fortran, Cobol, Basic, APL, 
PL/1,Prolog, Lisp, ADA — Assemblers/Linkers — Symbolic 
Debuggers — Simulators — Interpreters — Translators 
Converters — Profilers — QA Tools — Design Tools — Comm. Tools 
OS Kernels — Editors — Spreadsheets — Data Bases — VAX & PC 

Attached Processors and more 

We Support: 

680xx, 80x86, 320xx, 68xx, 80xx, dozens more 
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IBM PC XT Compatible, 4.77MHzZ IBM PC AT Compatible Computer IBM PC Compatible, 2 to 5 times 
Clock, 640K Mother Board, 8088 (STM Board) 6 MHz, 640K Memory, faster than IBM PC, Zero Wait 
Intel Chip, Keyboard, 135 watt Keyboard, Clock & Battery on State, Eight Slots,135 watts Power 
Power Supply, Floppy Disk Con- Board, Floppy & Hard Disk Con- Supply, 8 MHZ & 4.77 MHz Clock 
troller, Printer Port, Serial Port, troller, 1.2MB Floppy, 192 watts (Dual Speed Hardware & Software 
Game Port, Clock w/Battery Back- Power Supply .........$1499.* switchable), 640KB on Mother 
up, Two Disk Drives...... $699. Aes Dae Board, V-20 or 8088-2 Processor, 
Specials * Bei -=RE—eR AT layout Keyboard, Floppy Disk 
Floppy Disc Controller......$29. IBM PC AT Compatible Computer Bn ee ce wes 
Monochrome Graphics (Atronics Mother Board), 8 MHz & Ill, Flight Si col abana d 
Cape ooo Sets oe ae Clock (enhanced version), 640KB ie $699" 
Disk |/O Card FDC, PP/SP, Memory expandable to 1MB, AT ete kc, et oe ees ; 
Game, Battery Clock ...... 79. layout Keyboard, Floppy & Hard 
4200 Baud Modem (2 size).. 159 — Disk Controller by Western Digital, TBeccccicit een eet EK ConeRaon 
XT-Mother Board “O”K 192 watts Power Supply, 1.2MB 
expandable to 640K....... 99. Floppy, 20MB Hard Disk, Socket 
Mother Board for AT ......650. ROE RO8G ee a wis cs eee 
Keyboard Al” 5.0% i453 22k Bee “QO” Wait State Option ....$300. 
20MB Drive with Controller. . 425. 
Power Supply 135 watts .... 65. ; 
Power Supply 200 watts ...129. PLEASE DONT CALL 
MY Chassis 2. ce a TICKETRON ... 
AE Cees ea na ee Se FOR FAST SERVICE = 
8MHz IBM PC XT Compatible CALL US | 
Mother Board “O’K ...... 175. = mg AMERICAN 
30MB Drive with Controller. . 590. (714) 972-2945 [AIO A ine 
EGA Carll 25 ce os ow oe ___TWX 5106003265 1322 E. EDINGER SANTA ANA, CA 92705 


(213) 477-6320 inside Los Angeles 
Prices and Availability subject to change without notice. 
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It’s amazing what you 
can reveal when you strip. 


Introducing a shape that’s about to turn on an Simply by plugging the Cauzin Reader into your 





entire industry. serial or cassette port and placing it over the strip. 
The Softstrip * data strip. From Cauzin. The reader scans the strip, converts it to com- 
This new technology allows text, graphics, and puter code, and feeds it into any standard communi- 
data to be | - cation interface. 
encodedona — Because strips are so easy to gen- 
strip of paper erate, most of your favorite magazines 
then easily oa ae eae and books will soon be using them in 
entered into S-andreadingitiniyourconpuet «addition to long lists of program code. 
your computer using a scanning device called the And you'll 
Cauzin Softstrip " System Reader be able to enter 
Creating a simple, reliable and cost efficient programs with- 
way to distribute and retrieve information. out typing a 
Softstrip data strips, like those you see here, can single line. 
contain anything that can be put on magnetic disks. There is 
Facts. Figures. Software programs. also software for 
Video games. Product demonstrations. you to generate 
Sheet music. your own strips. 





Letting you Soon everyone will be stripping as data strips appear in 
send every- popular magazines, computer books and text books. 
thing from correspondence to business information 
using our new technology 

Find out how much you can reveal by 
stripping. Just take this ad to your computer dealer 
for a demonstration of the Cauzin Softstrip 





ai = System Reader 
Acne Ses aE Or for more information and the name of the 
Re ee eee dealer nearest you, call Cauzin at 1-800-533-7323. 
Asingle strip can hold up to 5500 bytes of In Connecticut, call 573-0150. 
encoded data. 9 
[t can stand up to wrinkles, scratches, ink 7 
marks, even coffee stains. Softstri 
And it can be entered into your computer with | 
abe ee : Cauzin Systems, Inc. 
a higher degree of reliability than most magnetic media. 835 South Main St., Waterbury, CT 06706 


Apple® and Macintosh® are registered trademarks of Apple Computer Inc., Apple® is a registered trademark of Apple Records, Inc., 
Softstrip® and the Softstrip® System Reader are trademarks of Cauzin Systems, Inc., IBM® is a registered trademark of IBM, Inc. 
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Someone once said that there is nothing new under the sun. Wouldnt life be boring 
that were indeed true? The data strips on the right contain the program described 


MAKING THE GOOD LIFE EVEN BETTER 
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by Jack Park, which appears in this 


issue. Its a prime example of how something, in this case the game of LIFE itself, 


“The Game of Life in Expert-2”, 
can, indeed be improved. 


in the article 





years, 


The game of LIFE was invented years ago by John Horton Conway. Over the 
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vated by this devilishly simple, yet marvelously 


ch plays the game thousands of times faster. Now millions 


evolved into a popular cerebral exercise for programmers and math majors 
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computer screen. After setting up an initia 
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Mr. Park’s improvement on the theme is interesting because of his approach. Instead 


you start the simulation. The patterns will change on the screen as cells live and die. 
writing a traditional program for the simulation, he has created an arra 
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program. Refer to 


You'll need the Expert-2 programming environment to operate this 
Mr. Park's article in this issue for operating instructions. 
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ARTICLES 


The CompuServe 
B Protocol: 
A Better Way to Send Files 


Talking to the Big Boys 

f you've tried to use a commer- 
| telecommunications pack- 

age to upload or download files 
to or from a mainframe computer, 
you may have experienced a few dif- 
ficulties. The most popular file-trans- 
fer protocols all have problems deal- 
ing with the “big boys’—XMODEM, 
for example, has a tendency to “time 
out”” when the host system experi- 
ences a momentary delay in trans- 
mission. Other problems also get in 
the way. Many protocols require a 
file length that is an exact multiple of 
some block size. We've run into these 
problems here at DDJ while upload- 
ing listings for the DDJ Forum on 
Compuserve. 

In 1980, a programmer at Compu- 
Serve wrote one of the first programs 
that tried to fix some of these prob- 
lems, calling it the CompuServe A 
protocol. It had numerous glitches 
and design problems. The B protocol, 
designed about the same time as 
Ward Christensen designed XMODEM, 
is the next generation. For a while 
CompuServe afficionados wanted to 
keep both the A and B protocols pro- 
prietary, but CompuServe B is now in 
the public domain, supported by 
CompuServe. Because it was de- 
signed with the idea of communicat- 
ing between micros and mainframes 
over packet-switching networks, it 
incorporates several improvements 
that largely eliminate the problems 
of the other protocols. With the B 
protocol, unlike the others, you let 
the mainframe do all the work. 

With the B protocol, the host (usual- 
ly a mainframe) activates the proto- 
col in your micro automatically, as 
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by Levi Thomas 
and Nick Turner 


With the B protocol, 


unlike the others, you 
let the mainframe do 
all the work. 





soon as you have invoked the proto- 
col through your commands to the 
host. You must have a terminal pro- 
gram running in your local system 
that recognizes the host's initial B 
protocol query and automatically in- 
vokes its own “‘slave’ program to ac- 
cept or supply the data. The host also 
has the ability to interrogate your mi- 
cro to find out what features your 
program supports. B protocol sup- 
ports error-corrected file transfer be- 
tween computers, chiefly text file 
transfer between microcomputers 
and mainframes and binary file 
transfer between microcomputers 
with possible intermediate storage 
on mainframes. B protocol can trans- 
fer files of arbitrary size and supports 
character mapping on text transfers. 

The program we describe in this 
article is a dumb-terminal emulator 
with just enough intelligence to rec- 
ognize when the host is about to 
transfer a file up or down. It re- 
sponds to the host’s queries and im- 
plements the protocol transparently 
to the terminal user. BP.C (Listing One, 
page 90), the vanilla version de- 
scribed and supplied here in C source 
form, is not machine specific and 
should be installable in most existing 
terminal programs, provided you 


have access to the source code or in- 
formation on how to connect new 
device drivers. We've also included 
some machine-language and C mod- 
ules for the interface routines that 
will work on most MS-DOS machines. 


How It Works 
To transfer a file using the B protocol, 
first you invoke it in the host system 
(usually the mainframe your're call- 
ing) by sending the proper com- 
mands to it manually through your 
terminal interface. On CompuServe 
this would mean selecting the proper 
choice from the menu. Then the host 
system sends the ASCII ENQ,character, 
to which your terminal program re- 
sponds with DLE 0 (data link Escape 
followed by an ASCII 0). The host is 
acting as the master in this exchange 
(even though the protocol was in- | 
voked by you) because it is invoking 
the slave process in your micro. 
Next, the host usually sends the se- 
quence ESC I (Escape followed by AS- 
Cll J). Upon receipt, the microcomput- 
er terminal software should transmit 
an identification string to the request- 
ing computer. The identification 
string consists of the pound sign (*), 
followed by a three-letter, alphanu- 
meric, product name code (in this 
case the code is DTE, meaning a gen- 
eral terminal device), a version num- 
ber in decimal, a comma (,), and a 
comma-separated list of feature 
codes. The feature code list details 
the features supported by the partic- 
ular terminal program. The codes 
that denote a B protocol driver are PB 
(which refers to protocol B) and DT 
(disk transfer). Additional feature 
codes describe other capabilities, in- 
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cluding terminal type and graphics 
support. 

To start the transfer, the host sends 
a DLE followed by ASCII B. At this 
point, the main terminal loop should 
call Transfer_File (a BP.C routine) to 
complete the protocol sequence. 
Transfer_File returns a Boolean val- 
ue indicating the success/failure of 
the transfer. 


Routines You Provide 

In order to use the program supplied 
here, you must provide some rou- 
tines for your specific hardware. 
You'll need four routines to control 
your modem or serial port. These are 
used by BP.C to open, read, write, and 
close your modem port. You'll need a 
couple of routines to deal with your 
local keyboard and sereen. The pro- 
gram will call them to read a charac- 
ter from your keyboard, to write a 
character to your screen, and to find 
out if you have decided to abort the 
program (for example, by pressing 
the Esc key). You'll need to supply 
two timer routines: one that sets a 
time out of a certain number of sec- 
onds and another that tests whether 
the time is up. If you don't have a 
hardware timer, you can simulate 
the effect simply by decrementing a 
count every time the time-out rou- 
tine is called. Finally, you'll need a set 
of file-manipulation routines whose 
format will be largely dependent on 
exactly what operating system 
you're running under and what li- 
brary routines you re using. 


Modem Interface Routines 

Open_Modem— is required to initial- 
ize the modem port to support 8- 
bit data without auto XON/XOFF 
recognition before BP.C is called. 
No parity checking should be 
done. BP.C does not depend on 
baud rate and stop-bit settings. 
Note: Depending on the particular 
machine, data may be lost when 
the modem port is reprogrammed 
for no auto XON/XOFF recognition. 
This data loss usually affects only 
the first block, which the slave 
software can request to be retrans- 
mited by sending a NAK. 

Write_Modem—is called by BP.C. Its 
argument is an 8-bit character to 
be transmitted. 

Read_Modem— is called by BP.C and 
returns an integer containing an 8- 
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bit character or —1. The latter is 
used to indicate that no character 
has been received over the mo- 
dem port. 

Close_Modem— is required to shut 
down the modem port outside 
BP.C and to restore the machine to 
its original state. Certain changes 
made in Open—_Modem, such as re- 
programming interrupt vectors, 
must be undone before you exit 
from the program. 


User Input/Output Routines 
Read_Keyboard (from KEYBOARD 


C-terp 


The C 
Interpreter 


You Won't 
Outgrow 


C-terp will grow with you as you progress 
from novice through professional to guru. 
Unbelievable, but true, the easiest-to-use 
C interpreter will provide you with the 
most advanced programming features for 
upward growth. Our exclusive object 
module support enables you to add 
libraries (like HALO, PANEL, Windows for 
C, etc., or your own homebrew libraries) 

to C-terp as you add them to your comput- 
ing repertoire. Use C-terp as a microscope 
on your libraries! Flip a bit and allow our 
software paging (NEW) to handle those 

big jobs! There are no fixed-size tables 

to overflow, and C-terp can be configured 
for different screens and screen adapters 
(NEW). With multiple modules and full 
K&R support, we offer a dream C environ- 
ment. 


@ Our new improved configurable editor 
competes with anything going. 


@ Speed -- Linking and semi-compilation 
are breathtakingly fast. 


@ Convenience -- Errors direct you back 
to the editor with the cursor set to the 
trouble spot. 


e@ Symbolic Debugging -- Set breakpoints, 
single-step, and directly execute C ex- 
pressions. 


e@ Compatibility guaranteed — batch file to 
link in your compiler’s entire library. 
Supported compilers include: 
Computer Innovations C86, Lattice C, 
Microsoft C 3.0, Mark Williams C86, and 
Aztec C. 


@ Many more features including batch 
mode and 8087 support. 





.ASM, Listing Two, page 99)—re- 
turns an integer containing either 
ASClI-key codes, function-key 
codes, or —1 for no key pressed. 
Wants_To_Abort (from DTE.C, List- 
ing Three, page 100)—is called by 
BP.C to detect if the user has re- 
quested abort. The routine returns 
a Boolean true if abort has been in- 
dicated. Once the Wants 
_To_Abort status has been read, 
the status is reset. You may notice 
some delay before the abort re- 
quest is acknowledged. The delay 
is because of the need to synchron- 





What Our Users/ 
Reviewers Are Saying 


.. easy to use, powerful, anda 
timesaver.” 


.. we absolutely LOVE C-terp.” 


... has restored my faith in 
interpreters.” 


..a programmer's dream.” 
.. wonderful technical assistance.” 


.. increased our productivity by a 
factor of 40.” 


... the best C product ever, in any 
category.” 


Price: $300.00 (Demo $45.00) 
MC, VISA 


Prices include documentation and shipping 
within U.S. PA residents add 6% sales tax. 
Specify compiler. 


@ C-terp runs on the IBM PC (or any BIOS 
compatible machine) under DOS 2.x 
and up with a suggested minimum of 
256 Kb of memory. It can use all the 
memory available. 


* C-terp is a trademark of Gimpel Software. 


CIMPEL SOFTWARE 


3207 Hogarth Lane ® Collegeville, PA 19426 
(21 5) 584-4261 
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B PROTOCOL 
(continued from page 39) 


ize the abort packet with the cur- 
rent protocol packet. 

Put_Char (from SCREEN.ASM, Listing 
Four, page 104)—accepts an inte- 
ger containing ASCII character 
codes. The characters are dis- 
played to the user. 


Timer Routines 
These are routines from TIMER.ASM, 
Listing Five, next month. 





C Programmers: If you do business 
application development, you need 


Start_Timer—is passed an integer ar- 
gument of the number of seconds 
to begin counting down. 

Timer_Expired—returns Boolean 
true if the number of seconds set 
with Start_Timer has elapsed. If 
you don't have a real-time clock or 
timer, Start_Timer should set a de- 
lay counter that Timer_Expired 
decrements each time it is called, 
so that the number of calls to Ti- 
mer_Expired controls time out. Ti- 
mer_Expired is called frequently 





FAST 
PROGRAMMING” 





Why Fast Programming? 


Because it is a complete development 
system. You will no longer need to 
integrate incompatible libraries and 
fragments of programs. 


Because finished, ready-to-compile C 
programs are generated. 


Because there are no run time 
royalties. Not even for the utilities. 


Because the resulting system is truly 
multiuser. 


Fast Programming is $995 for a site 
license. VISA, MC, AMEX accepted. 
Currently available versions include 
PC-DOS, XENIX and UNIX. Call for 
specific machine availability. 


Subject, Wills 
& Company 


800 Enterprise Drive 
Oak Brook, Illinois 60521 
(312) 789-0240 


The C programming language tool for 
business applications. 











The components of 
Fast Programming are: 


C ROUTINES 

Decimal math, keyin and display 
with windowing, extended string 
handling, time/date conversions, 
time/date edits, misc edits, sequential 
I/O, key sequential I/O, random I/O, 
indexed I/O, printer output, error 
handler, system interface routines 
and more. 


C PROGRAM GENERATOR 
Maintenance and data entry program 
generator, report program generator, 
processing program generator, I/O 
routines generator. The generators 
provide many user exits in the 
generated source code. This allows 
for custom coding without changing 
the generated C source program. 
This means that no custom coding is 
lost when programs are regenerated. 


RUN TIME UTILITIES 
SORT, INDEX, REFORMAT, BUILD, 
CREATE, DUMP, CHAIN, ENCODE, 
FILECHK, LIST, RENAME, COPY and 
DELETE. 


MENU SYSTEM 
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during time-out detection. 

Delay (from DELAY.C, Listing Six, next 
month)—is called with an integer 
argument for the number of milli- 
seconds to wait before returning 
to the calling routine. The only 
purpose of Delay is to support a 
wait acknowledgment request 
from the other computer. The 
wait acknowledgment can be 
used to request delay time needed 
during intensive processing. 


File Input/Output Routines 

These are routines from FILEIO.ASM, 
Listing Seven, next month. These file 
primitives are used to create, read, 
and write both text and binary files. 
The data should be transferred un- 
modified (except in character-map- 
ping mode). The file-access mode 
should allow access to each byte in the 
file, often called “binary” or ‘“raw’’ 
mode. The actual arguments of each 
of the file input/output routines will 
need to be those supported by the par- 
ticular library you are using. 


Create_File—attempts to create a file 
with the name supplied and re- 
turns a negative-result code (for 
errors) or a file handle. 

Open_File—opens the file, returning 
a negative error code or the file 
handle. 

Read_File—reads the specified num- 
ber of bytes from the open file into 
the specified buffer, returning a 
negative error code or the number 
of bytes actually read. 

Write_File—writes the specified 
number of bytes from the open 
file into the specified buffer, re- 
turning a negative error code or 
the number of bytes actually 
written. 

Close_File—closes the file, returning 
a negative error code or 0. 


The B protocol is not perfect, but 
for this application, it’s clearly an im- 
provement over the previous micro- 
to-micro protocols. Currently, only 
CompuServe supports the B protocol. 
The master program will eventually 
be available in the public domain as is 
the slave program presented here. 


DDJ 
(Listings begin on page 90.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 4. 
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BKADY Knows 
rrogramming. 








You'll learn to whip every element of your programming into shape with the 
latest information and guidance by America’s foremost technical experts. 
Just call toll-free or use the coupon below to order today. 


1. Beyond the basics, this guide explores 
new structured concepts to analyze and 
solve probiems in C with tools 

modularity, input and output functions, 
oneys and structures, and bit manipulation. 
$21. 


5. A definitive reference text for advanced 
programmers. You'll find over 150 discus- 
sions of common hardware-control tasks (in 
BASIC, Pascal, or C) as well as assembler 
overlays, drivers, and real-time operators. 
$22.95 


Now at your book or computer store. 
Or order toll-free today: 


—— — — OS SS ee --3 


- 


BRADY COMMUNICATIONS COMPANY, INC. 


c/o Prentice Hall 


P.O. Box 512, W. Nyack, NY 10994 


Circle the numbers of the titles you want below. 
i (Payment must be enclosed; or, use your charge 
card.) Add $1.50 for postage and handling. 
or charge to 





| Enclosed is check for $ 
[] MasterCard [] VISA 


1 (0-89303-473-8) 
5 (0-89303-787-7) 


Creating Utilities 
Pune Seer 
10 Best for the IBM PC & XT 


Assembly 


Langua 
Aditines 





2. You learn by example with this guide 
through hundreds of subroutine listings. 
Discover how to enhance high level lan- 
guage programs (esp. BASIC) to quickly 
manipulate and sort large data files, 
generate graphics, integrate arrays, and 
use interrupts to access DOS. $17.95 


3. Learn the techniques used for creating 
assembly language utilities. Includes 10 of 
the most popular utilities such as DBUG 
SCAN, CLOCK, UNDELETE, ONE KEY, 
PCALC calculator and notepad and five 
others. $21.95 (Disk available) 





6. Perfect for both beginners and experi- 
enced programmers, you'll find everything 
from the basics of computer numbering 
through to step-by-step instructions for 
using the IBM Macro Assembler. With com- 
plete coverage of BIOS and a library of over 
30 macros for faster programming. $21.95 
(Disk available) 


7. Here’s a compendium of many of the 
most useful, but often neglected, advanced 
programming concepts. A tutorial in format 
that uses BASIC for examples, it covers 
techniques such as: linked data structures; 
recursion; pipelining; and dynamic storage 
allocation. includes listings for 25 sub- 
routines. $21.95 (Disk available) 


800-624-0023 


Acc't # 
Signature 
Name 
Address 
City 


Ba a realest te cecal Se 
(New Jersey residents, please add applicable sales tax.) 
Dept. 3 


2 (0-89303-409-6) 3 
6 (0-89303-484-3) 7 


(0-89303-584-X) 
(0-89303-481 -9) 


4. includes code listings for three working 
debuggers including single-stepping, cross 
referencing, and mapping utilities. $19.95 
(Disk available) 





8. The title might say “advanced” but you'll 
find a guide that begins with the funda- 
mentals of BASIC graphics and takes you 
through truly sophisticated 3-D assembly 
routines. Includes block graphics, creating 
a graphics editor, directly programming 
IBM's color graphics adapter, and much 
more. $21.95 


In New Jersey: 
800-624-0024 


Exp. date 











Zip 


4 (0-89303-587-4) 


GR-BKKD-BW(9) 
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REVIEWS 


The SwyitCard: 
Jei Raskin’s New User 


SwyftCard 
Information Appliance Inc., 1014 Ham- 
ilton Ct., Menlo Park, CA 94025, (415) 
328-5160; $89.95 

he SwyftCard from Informa- 
TT tion Appliance is a new per- 

sonal computer environment 
for the Apple Ile and Ilc. It provides a 
word processor from which you can 
easily perform other tasks, such as 
disk file access, calculations via BASIC, 
printing, and communications witha 
modem. The environment is note- 
worthy because it is philosophically 
at odds with the popular interface 
made of icons, windows, and mouse 
that is used on the Macintosh and 
other computer systems. Significant- 
ly, SwyftCard’s designer is Jef Raskin, 
one of the initiators of the Macintosh 
project at Apple Computer. 

I tested SwyftCard on an Apple Ile, 
but as this issue goes to press, Infor- 
mation Appliance has announced a 
version for the IIc also. To use Swyft- 
Card on a Ile, you need an 80-column 
card, a video monitor suitable for 80- 
column display, and a disk drive. The 
SwyftCard supports a wide variety of 
printers; several require no setup; 
and many can be installed by using 
the Calc command. 

SwyftCard consists of a three-chip 
board that plugs into slot 3, a set of 
stick-on labels for several keys, a tuto- 
rial disk, and an excellent manual. 
The tutorial will help you get started 
with SwyftCard by guiding you 
through a series of short lessons on 


the use of its features. 
The word processor is the heart of 


le ee 
Dave Caulkins, 437 Mundel Way, Los 
Altos, CA 94022 
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the SwyftCard system. It has been 
carefully designed to achieve several 
goals: 


e Speed: For text processing and flop- 
py-disk access, SwyftCard is signifi- 
cantly faster than more expensive 
systems. All the text is in RAM, so disk 
access time doesn’t slow SwyftCard 
down. Half the system is implement- 
ed in tokenized Forth and half in as- 
sembly language, resulting in fast op- 
eration. Each SwyftCard file occupies 
a single floppy disk and can expand 
to 40,000 characters, or roughly 14 
pages of single-spaced text. Disk oper- 
ations take less than seven seconds in 
all cases. 

e Simplicity: There are only ten basic 
commands: Insert, Delete, Print, 
Leap, Creep, Page, Calc, Print, Send, 
and Disk. The last three are for input/ 
output and are not used as frequently 
as the others. Most commands are im- 
plemented with one or two key- 
strokes using a few dual-purpose, 
specially labeled, SwyftCard func- 
tion keys. After a little practice, users 
learn the commands, and text pro- 
cessing becomes fast and easy. 

¢ Optional environment: You can 
load an ordinary Apple disk, and the 


by Dave Caulkins 
uncial operating system works normally, as 


SwyftCard hides behind the scenes 
until you need it. 


| How SwyftCard Works 


| Leaping 
| SwyftCard allows you to move 


through text using two Leap keys: 
the open-apple and closed-apple 
keys on either side of the space bar. 
To make learning easy, a set of stick- 
on labels is provided to indicate 
which keys are used for special 
SwyftCard functions. Leaping means 
moving from one place in the text to 
another immediately. 

Suppose the phrase The number is 
less than the numerator appears be- 
tween the cursor and the end of the 
file and you want to locate the cursor 
on then in numerator. Press the right 
Leap key as you type “n—u—m-—e’ 
to create a search pattern. After you 
have typed the ‘‘n,” the cursor leaps 
to the next instance of n in the file, 
after the u, to the next instance of nu, 
and so on until it stops on the n in the 
word numerator. 

If this isn’t the instance of the word 
you want, press the Leap key, and the 
Leap Again key (Tab), to find the next 
occurrence of the letters. Leap Again 
auto-repeats; if you hold it down for 
more than half a second, the cursor 
will move rapidly from one instance 
of the pattern to the next. If the cursor 
arrives at the end of the file, it wraps 
back to the beginning. It will continue 
its forward direction until the Leap 
keys are released. 

If you wish to leap to a point be- 
tween the cursor and the beginning 
of the file, use the same procedure 
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with the left Leap key, and the search 
will take place in the reverse direc- 
tion. 

Lowercase letters in a leap pattern 
match both uppercase and lowercase 
letters in the text. Uppercase letters in 
the pattern match only uppercase in 
the text. You can leap from word to 
word (press Leap and the space bar), 
paragraph to paragraph (press Leap 
and Return), or page to page (press 
Leap and the Page key [Esc] ). 
















Creeping 
Moving the cursor over just a few 
characters is called creeping in the 
SwyftCard manual. To creep, press 
and release the right Leap key, and 
the cursor moves a character to the 
right. To creep in reverse, press the 
left Leap key. 














Deleting 
Deletes can also be done to the left or 
right of the cursor. While you are typ- 
ing, if you press the Del key, the char- 
acter to the left is erased as with the 
backspace key on a typewriter. After 
you leap or creep to a new place in 
the file, characters to the right of the 
cursor are deleted. The appearance of 
the cursor itself indicates which de- 
lete is operative. A narrow cursor is 
one character wide and appears 
when right delete is in effect; the 
wide cursor is two characters across 
with the cursor and the reverse-video 
character split. 





















Highlighting 
Another useful SwyftCard feature is 
the highlighting of text. Highlighted 
text can be deleted, saved in a buffer 
for later insertion, printed, or tele- 
communicated. Highlighting takes 
place by pressing and releasing a Leap 
key, moving the cursor, and then 
pressing both Leap keys simulta- 
neously. Any amount of text can be 
highlighted, from two characters to 
the entire document. Pressing Delete 
will remove all highlighted text from 
the screen and place it in a buffer. To 
restore the text, locate the cursor 
where you want the text and press 
Insert (Control-A). The deleted text re- 
mains in the buffer until you high- 
light and delete other text. 
























The Disk Command 
You use the Disk key to read from or 
write a file to the disk. SwyftCard’s 
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method of handling disk files auto- 
matically takes care of whether read- 
ing or writing is required. Let's say 
you want to save some text. Put a flop- 
py disk in the drive, and press the Disk 
key. SwyftCard notes if the disk is 
empty and that text is in RAM and de- 
duces that a disk write is needed. 
When text has been saved, the cursor 
blinks rapidly to indicate that RAM 
and disk contents are identical. 

On the other hand, if you are in the 
middle of writing and try to load a 
new file from a different floppy, 
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Essentials 








SwyftCard will observe that some 
changes in RAM have not been saved 
and refuse to overwrite. A beep 
serves to remind you that the disk for 
the old file should be inserted in the 
drive to save changes. If you really do 
not want to save your changes, the 
procedure is to delete the text. These 
are examples of a well-planned user 
interface, designed to save the user 
from accidental, catastrophic errors, 
which all computer users have expe- 
rienced at some time. Another exam- 
ple of this care is a SwyftCard com- 








> “Offers many capabilities for a reasonable price” » 


: W. Hunt, PC Tech Journal f 
> “I highly recommend the 5 UTILITY LIBRARY” 0/ | 
Xe) b 


D. Deloria, The C Journal “hs 


[ESSENTIALS 





$100 


200 functions: video, strings, keyboard, directories, files, time/date and more. 
Source code is 95% C. Comprehensive manual with plenty of examples. Demo 
programs on diskette. Upgrade to THE C UTILITY LIBRARY for $95. 


THE (UTILITY LIBRARY 


$185 


Thousands in use world wide. 300 functions for serious software developers. 
The C ESSENTIALS plus “pop-up” windows, business graphics, data entry, DOS 
command and program execution, polled async communications, sound and 


more. 


ESSENTIAL GRAPHICS 


$250 


Fast, powerful, and easy to use. Draw a pie or bar chart with one function. 


Animation (GET and PUT), filling (PAINT) and user definable 


atterns. IBM color, 


IBM EGA and Hercules supported (more oe NO ROYALTIES. Save $50 when 


purchased with above libraries. Available Fe 


ruary, 1986. 


Compatible with Microsoft Ver. 3, Lattice, Aztec, Mark Williams, CI-C86, 
DeSmet, and Wizard C Compilers. IBM PC/XT/AT and true compatibles. 


Compiler Packages: Microsoft C - 319, Lattice or Cl-C86 compilers 
-$329. Save $40 - $50 when purchasing compiler and a, combinations. 


ape C compiler and version number when ordering. Ad 
UPS 2-day. NJ residents add 6% sales tax. Visa, MC, 


$4 for UPS or $7 for 
hecks, POQ’s. 


quem = ESSENTIAL SOFTWARE, INC 


ee = PO. Box 1003 Maplewood, NJ 07040 914/762-6605 
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SWYFTCARD 
(continued from page 43) 


mand that will make a disk look 
blank, in effect destroying anything 
on it and allowing you to write to it. 
Because this command can affect 
your data and is thus dangerous, it 
does not use the Disk key and is diffi- 
cult to execute accidentally. 


The Calc Command 

The Calc command causes a BASIC 
statement to be executed in the file; 
for example, if you type “?34 + 78” 


and then highlight it and press the 
Calc key, the answer 112 will appear 
in place of the BASIC statement in your 
text. More complex executions are 
also possible. If you type 


10 FORT. = 1:TO 31 

20 PRINT “JANUARY”; I 
30 NEXT I 

RUN 


then highlight this program and press 
the Calc key, the following calendar 
for January will be placed in your file 
where the program was: 


¢¢Revelation is 50% harder 
to learn than dBase III’; 
and 5 times more powerful 9? 


John Dunbar 
Dunbar and Company 
Application Designers 


That's a small price to pay for power. Especially 
when it helps a programmer like John Dunbar create 
LAN databases for the Houston Rockets, Compaq 
Computer Corporation and Houston Natural Gas. 

Revelation has all the tools Dunbar needs 
including a program generator to slash development 
time and a robust language that puts C to shame. 

Prove it to yourself. The Revelation Demo/ 
Tutorial is only $24.95. Technical specifications are 
free. Send today for more information. 


Cosmos, Inc., 19530 Pacific Highway South, Suite 102 
Seattle, WA 98188, (206) 824-9942, Telex: 9103808627 


dBase III is a trademark of Ashton-Tate. 
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JANUARY 1 
JANUARY 2 
JANUARY 3 


JANUARY 30 
JANUARY 31 


Almost all BASIC commands will 
work, but the size of the BASIC pro- 
gram is limited to 900 bytes in the 
compacted internal form. Some uses 
of BASIC are dangerous—CALL, PEEK, 
and POKE can zap your file if used in- 
correctly or with values that interfere 
with the SwyftCard. 


Awkward Moments 

When the SwyftCard has used all 
available RAM memory, it will beep 
each time you press a key. To create 
room, execute at least two deletions. 
One is insufficient because the delete 
buffer continues to take up the same 
amount of RAM. At this point it is 
clearly advisable to save the file, insert 
a new disk, delete part of the text, and 
continue. This is one of the few awk- 
ward operations of SwyftCard. An im- 
provement would be some sort of 
warning when all but 50 or 100 bytes 
of RAM had been used to allow for a 
more graceful conclusion of an edit- 
ing session. 

The SwyftCard approach of allow- 
ing each disk to hold one file is accept- 
able for a machine such as the Apple 
II, but as memory and hard disks con- 
tinue to drop in price, the SwyftCard 
environment will have to adapt to 
machines with greater internal and 
external storage capabilities. These 
implementations will require a file 
management system and some 
scheme for mapping files into a range 
of RAM memory sizes. 

These minor complaints are far less 
important than the many impressive 
characteristics of SwyftCard, includ- 
ing speed, ease of use, and diversity. 
Overall, SwyftCard offers a strikingly 
innovative user interface that de- 
serves the attention of users and soft- 
ware developers interested in ad- 
vancing the cause of usable 
computers. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 5. 
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PVRS EN ey ess 
eal performance. 


eal affordable. 


Softsmarts introduces Smalitalk for the IBM PC/AT. 


It's real because it’s Smalltalk-80. Only Smalltalk-80 
offers the complete set of Smalltalk classes, 
system browsers, workspaces, text and graphics 
editors, symbolic debuggers, and inspectors— 
all the tools you need for object-oriented 
programming, refined by more than 10 years of 
Xerox research. 


It's fast because it's optimized to work on the 
IBM PC/AT with bit-mapped graphics, a mouse, 
and a window interface. So, you can forget 
everything you ever heard about slow Smalltalk. 


Smalitalk-80 is a trademark of Xerox Corporation. 





It's affordable because it runs on an IBM 
Personal Computer. It's the only Smalltalk-80 
that does. In fact, it’s the most affordable way 
to run Smalitalk-80, Version 2. And it’s available 
today. 


Smalitalk-80 for the IBM PC/AT. From Softsmarts. 
A Skyline Drive, Woodside, CA. 94062 
415-327-8100. 


softsmarts, inc. 
intelligent software 





IBM is a trademark of International Business Machines Corporation. 


Circle no. 180 on reader service card. 
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Listing Seventeen (continued from May) 


IMPLEMENTATION MODULE CodeGenerator; 
(* Uses information supplied by Parser, OperationCodes, *) 
(* and SyntaxAnalyzer to produce the object code. *} 


FROM Strings IMPORT 
Length, CompareStr; 


FROM SymbolTable IMPORT 
FillSymTab, ReadSymTab; 


FROM Parser IMPORT 
TOKEN, OPERAND, OpLoc, SrcLoc, DestLoc; 


FROM LongNumbers IMPORT 
LONG, LongAdd, LongSub, LongInc, LongDec, 
LongClear, CardToLong, LongToCard, LongTolInt, 
LongCompare, AddrBoundW, AddrBoundL; 


FROM OperationCodes IMPORT 
ModeTypeA, ModeTypeB, ModeA, ModeB, Instructions; 


FROM ErrorxX68 IMPORT 
ErrorType, Error; 


FROM SyntaxAnalyzer IMPORT 
OpMode, Xtype, SizeType, OpConfig, Src, Dest, 
Size, Op, AddrModeA, AddrModeB, InstSize, 
GetValue, GetSize, GetInstModeSize, GetOperand, GetMultReg; 


CONST 
JMP = {14, 11, 10, 9, 7, 6}; 
JSR = {14, 11, 10, 9, 7}; 
RTE. = 114, 11,- 10; °:9576;7-5,° 4, 1; 0}; 
RIB 114,- 11, 10779, 6," 55-457 25. 15-0}? 


RTS MiG 2 105. 95-65 2S, 4, 2, ORs 
TRAPY = (14> 41, 10,29,-6,.5, 4, 25-332 
SIOP> = -{14;. 11,°:10,- $,7-6,-S,-.4, 13; 
LINK = {14, 11, 10, 9, 6, 4}; 

SWAP = {14, 11, 6}; 

UNLK = {14, 11, 10, 9, 6, 4, 3}: 

Quote = 47C; 


VAR 
Cpe 
(* Defined in DEFINITION MODULE *) 
LZero, AddrCnt : LONG; 
Pass2 : BOOLEAN; 
---*) 
AddrAdv : LONG; 
TempL : LONG; (* Temporary variables *) 
TempI : INTEGER; 
TempC : CARDINAL; 
BrValue : LONG; 
RevBr : BOOLEAN; 


(* Used to calculate relative branches *) 


PROCEDURE BuildSymTable (VAR AddrCnt : LONG; 


Label, OpCode : TOKEN; SrcOp, DestOp : OPERAND); 


(* Builds symbol table from symbolic information of Source File *) 


VAR 
Value : LONG; 
Full : BOOLEAN; 
PseudoOp : BOOLEAN; 


BEGIN 
Value := LZero; 
AddrAdv := LZero; 
InstSize := 0; 
PseudoOp := FALSE; 
Size := SO; 


IF Length (OpCode) = 0 THEN 


RETURN; (* Nothing added to symbol table, AddrCnt not changed *) 


END; 
GetSize (OpCode, Size); 


IF CompareStr (OpCode, "ORG") = 0 THEN 
GetValue (SrcOp, AddrCnt) ; 
AddrBoundW (AddrCnt); 
Value := AddrCnt; 
PseudoOp := TRUE; 

ELSIF CompareStr (OpCode, "EQU") = 0 THEN 
GetValue (SrcOp, Value); 
PseudoOp := TRUE; 

ELSIF CompareStr (OpCode, "DC") = 0 THEN 
CASE Size OF 


Word : AddrBoundW (AddrCnt); 
| Long : AddrBoundL (AddrCnt); 
L  -Byte,  (s-ss 
END; 


IF SrcOp[0] = Quote THEN (* String Constant *) 
TempC := Length (SrcOp); 
IF TempC > 2 THEN 
InstSize := TempC - 2; 
END; 
ELSE 
InstSize := ORD (Size); 
END; 
CardToLong (InstSize, AddrAdv); 
Value := AddrCnt; 
PseudoOp := TRUE; 
ELSIF CompareStr (OpCode, "DS") = 0 THEN 
GetValue (SrcOp, AddrAdv) ; 
Value := AddrCnt; 
PseudoOp := TRUE; 
ELSIF CompareStr (OpCode, "EVEN"}) = 0 THEN 
AddrBoundW (AddrCnt); 
Value := AddrCnt; 
PseudoOp := TRUE; 
ELSIF CompareStr (OpCode, "END") = 0 THEN 
PseudoOp := TRUE; 
ELSE 
Value := AddrCnt; 
END; 


IF Length (Label) # 0 THEN 
FillSymTab (Label, Value, Full); 
IF Full THEN 

Error (0, SymFull); 


IF NOT PseudoOp THEN 


Instructions (OpCode, OpLoc, Op, AddrModeA, AddrModeB) ; 


AddrBoundW (AddrCnt); 

Src.Loc := SrcLoc; Dest.Loc := DestLoc; 
GetOperand (SrcOp, Src); 

GetOperand (DestOp, Dest); 

InstSize := 2; (* minimum size of instruction *)} 


IF Brnch IN AddrModeA THEN 
IF Size # Byte THEN 
INC (InstSize, 2); 
END; 
ELSIF DecBr IN AddrModeA THEN 
INC (InstSize, 2); 
ELSE 
IF (Op = JMP) OR (Op = JSR) THEN (* Allows for ‘JMP.S' *)} 
IF (Size = Byte) AND (Src.Mode = AbsL) THEN 
Src.Mode := AbswW; 
END; 
END; 


TempC := GetInstModeSize (Src.Mode, Size, InstSize); 
TempC := GetInstModeSize (Dest.Mode, Size, InstSize); 
END; 


IF (Srce.Mode = Imm} AND 
{(Data911 IN AddrModeA) OR (Data03 IN AddrModeA) OR 
(Data07 IN AddrModeA) OR (CntR911 IN AddrModeA)) THEN 
(* Quick instruction *) 
InstSize := 2; 
END; 
CardToLong (InstSize, AddrAdv); 
END; 
END BuildSymTable; 


PROCEDURE MergeModes (VAR SrcOp, DestOp : OPERAND; 


VAR ObjOp, ObjSrc, Ob jDest : LONG; 
VAR nO, ns, nD : CARDINAL) ; 
Uses information from Instructions & GetOperand (among others) *) 
to complete calculation of Object Code. “) 
Op, AddrModeA, AddrModeB, Size, and Src & Dest records are all ‘*) 
Global variables imported from the SyntaxAnalyzer MODULE. *} 
CONST 
(* BITSETs of the modes MISSING from effective address modes *) 
ea = {}; (* Effective addressing - all modes *) 
dea = {1}; (* Data effective addressing =} 
mea = {l, 0}; (* Memory effective addressing *) 
cea = {11,.4, 3, 1, 0}; (* Control effective addressing *)} 
aea = {1l, 10, 9}; (* Alterable effective addressing *) 
xxx = {15, 14, 13}; (* extra modes: CCR/SR/USP *) 


(* 2 "AND" masks to turn off switch bits for shift/rotate *) 
O£E910- 1155. 145-13 ,- 12, 325 8p 06755 408, ser. dy -O}F 
Of534° 25415714, 33,12; P35, °105:5 9585 7, 96,25. 2. Ts 0F2 


VAR 
M : CARDINAL; 
i : CARDINAL; 
Ext : BITSET; 
ExtL : LONG; 
Xext : BITSET; 
Quick : BOOLEAN; 


(* Bit pattern for instruction extension word *) 


PROCEDURE OperExt (VAR EA : OpConfig); 
(* Calculate Operand Extension word, and check range of Operands *) 


VAR 
GoodCard, GoodInt : BOOLEAN; 


BEGIN 
GoodCard := LongToCard (EA.Value, TempC); 
GoodInt := LongToInt (EA.Value, TempI); 


CASE EA.Mode OF 
AbsL = iy (* No range checking needed *) 
| AbswW : IF NOT GoodCard THEN 
Error (EA.Loc, SizeErr); 
END; 
| ARDisp, 
PCDisp : IF NOT GoodInt THEN 
Error (EA.Loc, SizeErr); 
END; 
| ARDisx, 
PCDisx : IF (TempI < -128) OR (TempI > 127) THEN 
Error (EA.Loc, SizeErr); 
END; 
Xext := BITSET (EA.Xn * 4096); 
IF EA.X = Areg THEN 
Xext := Xext + {15}; 
END; 
IF EA.Xsize = Long THEN 
Xext := Xext + {11}; 
END; 
CardToLong (CARDINAL (Xext), TempL); 
EA.Value[3] := TempL [3]; 
EA.Value[4] := TempL [4]; 
| Imm : IF Size = Long THEN 
(* No range check needed *) 
ELSE 
IF GoodInt THEN 
IF Size = Byte THEN 
IF (TempI < -128) OR (TempI > 127) THEN 
Error (EA.Loc, SizeErr); 


Error (EA.Loc, SizeErr); 
END; 
END; 
ELSE 
{* No Action *) 
END; 
END OperExt; 


PROCEDURE EffAdr (VAR EA : OpConfig; Bad : BITSET); 
(* adds effective address field to Op (BITSET representing opcode) *) 


VAR 
M : CARDINAL; 
i : CARDINAL; 
Xext : BITSET; 


BEGIN 
M := ORD (EA.Mode); 


IF M IN Bad THEN 
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Error (EA.Loc, ModeErr); 
RETURN; 
ELSIF M > 11 THEN 
U 


RETURN; 
ELSIF M < 7 THEN 
:= Op + BITSET (M * 8) + BITSET (EA.Rn); 
* 


ELSE (* he ey OE et } 
Op := Op + {5, 4, 3} + BITSET (M - 7); 
END; 
OperExt (EA); 
END EffAdr; 


BEGIN (* MergeModes *) 
ExtL := LZero; 
Quick := FALSE; 


(* Check for 5 special cases first *) 


#\ 


IF (Op = RTE) OR (Op = RTR) OR (Op = RTS) OR (Op = TRAPV) THEN 
IF Src.Mode # Null THEN 
Error (SrcLoc, OperErr); 
END; 
END; 


IF Op = STOP THEN 
IF (Srce.Mode # Imm) OR (Dest.Mode # Null) THEN 
Error (SrcLoc, OperErr); 
END; 
END; 


IF Op = LINK THEN 
:= Op + BITSET (Src.Rn) 
IF (Src. Mode # ARDir) OR (Best. Mode # Imm) THEN 
Error (SrcLoc, ModeErr) 
END; 
END; 


IF Op = SWAP THEN 
IF EAOSf IN AddrModeB THEN 
(* Ignore, this is PEA instruction! *} 
ELSE 
:= Op + BITSET (Src.Rn)}; 
IF (Src.Mode # DReg) OR (Dest.Mode # Null) THEN 
Error (SrcLoc, OperErr); 
END; 
END; 
END; 


IF Op = UNLK THEN 
:= Op + BITSET (Srce.Rn); 
IF (Src. Mode # ARDir) OR (Dest.Mode # Null} THEN 
Error (SrcLoc, OperErr); 
END; 
END; 


(* Now do generalized address modes *) 


IF (Ry02 IN AddrModeA) AND (Rx911 IN AddrModeA) THEN 
:= Op + BITSET (Src.Rn) + BITSET (Dest.Rn * 512); 
(* Now do some error checking! *) 
IF RegMem3 IN AddrModeA THEN 
IF Src.Mode = DReg THEN 
IF Dest.Mode # DReg THEN 
Error (DestLoc, ModeErr) ; 


END; 

ELSIF Src. ar ak ARPre THEN 
Op := + {3}; 
IF Dest.Mode # ARPre THEN 

Error (DestLoc, ModeErr); 

END; 

ELSE 
Error (SrcLoc, OperErr); 


ELSE 
IF Src.Mode = ARPost THEN 
IF Dest.Mode # ARPost THEN 
Error (DestLoc, ModeErr) ; 


END; 
ELSE 
Error (SreLoc, OperErr); 
D; 
END; 
END; 


IF Data911 ae = THEN 
Quick := TRUE 
IF Src. .Mode = “Imm THEN 
IF LongToInt (Src.Value, TempI} 
AND (TempI > 0) 
AND (TempI <= 8) THEN 
IF TempI < 8 THEN (* Data of 8 is coded as 000 *) 
Op := Op + BITSET (TempI * 512); 
END; 


ELSE 
Error (SrcLoc, SizeErr); 
D; 


E 
ELSE 

Error (SrcLoc, OperErr); 
ND; 


END; 


IF CntR911 IN AddrModeA THEN 

{* Only Shift/Rotate use this *) 

IF Dest.Mode = DReg T 
Op := (Op * Off910) + BITSET (Dest.Rn); 
CASE Size OF 

Byte : ; 

| Word : Op := Op + {6}; 
| Long : Op := Op + {7}; 
END 


IF Src. Mode = DReg THE 
:= Op + {5} + BrTset (Sre.Rn * 512); 
ELSIF Src. Mode = Imm 
Quick := TRUE; 
(* Range Check *) 
IF LongToInt (Srce.Value, TempI) 
AND (TempI > 0) 
AND (T2mpI <= 8) THEN 
IF TempI < 8 THEN (* Data of 8 is coded as 000 *) 
Op := Op + BITSET (TempI * 512); 
END; 
ELSE 
Error (SrcLoc, SizeErr); 
D; 





ELSE 
Error (SrcLoc, OperErr); 
END; 
ELSIF Dest.Mode = Null THEN 


(continued on next page) 
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SOFTWARE 
DESIGN 
ENGINEERS 


Because of our rapid growth, we're 
looking for nothing less than the top 
Software Design Engineers in the 
country — wizards who can com- 
bine microcomputer software devel- 
opment skills with creative imagina- 
tion. You will work in networking, 
sophisticated graphics, operating 
systems, compilers, productivity 
software, product marketing and 
other exciting areas: In each project, 
you ll have the opportunity to 
explore totally new realms of micro- 
computer software. 


The right candidates will havea 
degree in Computer Science, ora 
related field with a minimum of 3 
years relevant work experience in the 
microcomputer industry. Experience 
in micros, systems programming 
using “C”, Pascal, or Assembler, 
operating systems and working in 
small teams is essential to these posi- 
tions. Experience in 8086 Assembler, 
XENIX/UNIX, MS-DOS, and micro- 
processors (286, 8086, 68000) is 
desired. 


Microsoft is located in the Seattle 
area of the beautiful Pacific North- 
west, where the amenities of civili- 
zation live side by side with the 
grandeur of mountains and pine 
forests. It’s one of the most prized liv- 


ing environments in the United States. 


Come to Microsoft, where you will 
have the space and flexibility to prove 
to the computer industry that you're 
the best at what you do. Microsoft 
offers excellent opportunities anda 
complete benefits package. Send 
your resume to: MICROSOFT COR- 
PORATION, Human Resources, 
Dept. SS, 16011 NE 36th Way, Box 
97017, Redmond, WA 98073-9717. 
An Equal Opportunity Employer. 


MIC 


The High Performance Software 


SOFT. 
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Listing Seventeen (listing continued) 


Op := (Op * Off34) + {7, 6}; 
EffAdr (Src, (mea + aea)); 
ELSE 
Error (SrcLoc, OperErr); 
END; 
END; 


IF Data03 IN AddrModeA THEN 
Quick := TRUE; 
IF Src.Mode = Imm THEN 
IF LongToInt (Src.Value, TempI) 
AND (TempI >= 0) 
AND (TempI < 16) THEN 
Op := Op + BITSET (TempI); 
ELSE 
Error (SrcLoc, SizeErr); 
END; 
ELSE 
Error (SrcLoc, OperErr); 
END; 
END; 


IF Data07 IN AddrModeA THEN 
Quick := TRUE; 
IF (Src.Mode = Imm) AND (Dest .Mode = DReg) THEN 
IF LongToInt (Src.Value, TempI) 
AND (TempI >= -128) 
AND (TempI <= 127) THEN 
Op := Op + (BITSET {(TempI) * {7, 6, 5, 4, 3, 2, 1, 0}} 
+ BITSET (Dest.Rn * 512); 
ELSE 
Error (SrcLoc, SizeErr); 
END; 
ELSE 
Error (SrcLoc, OperErr); 
END; 
END; 


IF OpM68D IN AddrModeA THEN 
IF Dest.Mode = DReg THEN 
Op := Op + BITSET (Dest.Rn * 512); 
IF (Src.Mode = ARDir) AND (Size = Byte) THEN 
Error (SrcLoc, SizeErr); 
END; 
ELSE (* Assume Src.Mode = DReg -- Error trapped elsewhere *) 
Op := Op + BITSET (Src.Rn * 512); 


Op := Op + {8}; 
END; 
CASE Size OF 

Byte : ; 
| Word : Op := Op + {6}; 
| Long : s= Op + {7}; 
END; 


END; 


IF OpM68A IN AddrModeA THEN 
IF Dest .Mode = ARDir THEN 
Op := Op + BITSET (Dest.Rn * 512); 
ELSE 
Error (DestLoc, ModeErr); 


CASE Size OF 
Byte : Error (OpLoc, SizeErr); 


| Word : Op := Op + {7, 6}; 
| Long : Op := Op + {8, 7, 6}; 
END; 


END; 


IF OpM68C IN AddrModeA THEN 
IF Dest.Mode = DReg THEN 
Op := Op + BITSET (Dest.Rn * 512); 
ELSE 
Error (DestLoc, ModeErr); 
END; 


CASE Size OF 
Byte : IF Src.Mode = ARDir THEN 
Error (OpLoc, SizeErr); 


END; 
| Word : Op := Op + {6}; 
| Long : Op := Op + {7}; 
END; 


END; 


IF OpM68X IN AddrModeA THEN 
IF Src.Mode = DReg THEN 
Op := Op + BITSET (Sre.Rn * 512); 
ELSE 
Error (SrcLoc, ModeErr); 
END; 


CASE Siz 
Byte 
| Word 
| Long 
END; 
END; 


SEES 


IF OpM68S IN AddrModeA THEN 
IF Src.Mode = DReg THEN 
Op := Op + BITSET (Src.Rn); 
ELSE 
Error (SrcLoc, ModeErr); 
END; 


CASE Size OF 


Byte : Error (OpLoc, SizeErr); 
| Word : Op := Op + {7}; 
| Long : Op := Op + {7, 6}; 
END; 


END; 


IF OpM68R IN AddrModeA THEN 
IF (Src.Mode = DReg) AND (Dest.Mode = ARDisp) THEN 
CASE Size OF 
Byte : Error (OpLoc, SizeErr); 
| Word : Op := Op + {8, 7}; 
| Long : Op := Op + {8, 7, 6}; 
END; 


Op := Op + BITSET (Src.Rn * 512) + BITSET (Dest.Rn); 
ELSIF (Src.Mode = ARDisp) AND (Dest.Mode = DReg) THEN 
CASE Size OF 


Byte : Error (OpLoc, SizeErr); 
| Word : Op := Op + {8}; 
| Long : Op := Op + {8, 6}; 
END; 
Op := Op + BITSET (Srce.Rn) + BITSET (Dest.Rn * 512); 
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ELSE 
Error (SrcLoc, ModeErr); 
END; 
END; 


IF OpM37 IN AddrModeA THEN 
IF (Srce.Mode = DReg) AND (Dest.Mode = DReg) THEN 
Op := Op + {6} + BITSET (Src.Rn * 512) + BITSET (Dest.Rn); 
ELSIF (Src.Mode = ARDir) AND (Dest.Mode = ARDir) THEN 
Op := Op + {6, 3} + BITSET (Srce.Rn * 512) + BITSET (Dest.Rn); 
ELSIF (Src.Mode = ARDir) AND (Dest.Mode = DReg} THEN 
Op := Op + {7, 3} + BITSET (Dest.Rn * 512) + BITSET (Src.Rn); 
ELSIF (Srce.Mode = DReg) AND (Dest.Mode = ARDir) THEN 
Op := Op + {7, 3} + BITSET (Src.Rn * 512) + BITSET (Dest.Rn); 
ELSE 
Error (SrcLoc, ModeErr); 
END; 
END; 


IF Bit811 IN AddrModeB THEN 
IF Src.Mode = DReg THEN 
Op := Op + {8} + BITSET (Srce.Rn * 512); 
ELSIF Src.Mode = Imm THEN 
Op := Op + {11}; 
ELSE 
Error (SrcLoc, ModeErr); 
END; 
END; 


IF Size67 IN AddrModeB THEN 
CASE Size OF 


Byte : ;(* No action -- bits already 0's *) 
| Word : := Op + {6}; 
| Long : Op := Op + {7}; 
END; 


END; 


IF Size6 IN AddrModeB THEN 
CASE Size OF 
Byte : Error (OpLoc, SizeErr); 
| Word : (* No Action —- BIT is already 0 *) 


| Long : Op := Op + {6}; 
END; 

END; 

IF Sizel213A IN AddrModeB THEN 
CASE Size OF 

Byte : Op := Op + {12}; 

| Word : Op := Op + {13, 12}; 
| Long : Op := Op + {13}; 
END; 

END; 


IF Sizel213 IN AddrModeB THEN 
Op := Op + BITSET (Dest.Rn * 512); 
CASE Size OF 
Byte : Error (OpLoc, SizeErr); 


| Word : Op := Op + {13, 12); 
J Toad : Op := Op + {13}; 


END; 


IF EAOSa IN AddrModeB THEN 
IF (Dest.Mode = DReg) OR (Dest.Mode = ARDir) THEN 
EffAdr (Src, ea); 
ELSE 
Error (DestLoc, ModeErr); 
END; 
END; 


IF EAOSb IN AddrModeB THEN 
IF Dest.Mode = DReg THEN 
EffAdr (Src, dea); 
Op := Op + BITSET (Dest.Rn * 512); 
ELSE 
Error (DestLoc, ModeErr); 


END; 


IF EAOSc IN AddrModeB THEN 
EffAdr (Dest, {11, 1}); 
END; 


IF EAOSd IN AddrModeB THEN 
EffAdr (Dest, aea); 
IF (Dest.Mode = ARDir) AND (Size = Byte) THEN 
Error (OpLoc, SizeErr); 
END; 
END; 


IF EAOSe IN AddrModeB THEN 
IF Dest .Mode = Null THEN 
EffAdr (Src, (dea + aea)); 
ELSIF (Src.Mode = Imm) OR (Src.Mode = DReg) THEN 
EffAdr (Dest, (dea + aea)); 
ELSE 
Error (SrcLoc, ModeErr); 
END; 
END; 


IF EAOSf IN AddrModeB THEN {* LEA & PEA / JMP & JSR *} 
EffAdr (Src, cea); 
IF Rx911 IN AddrModeA THEN 
IF Dest.Mode = ARDir THEN 
Op := Op + BITSET (Dest.Rn * 512); 
ELSE 
Error (DestLoc, ModeErr); 
END; 
ELSE 
IF Dest.Mode # Null THEN 
Error (DestLoc, OperErr); 
END; 
END; 
END; 


IF EAOSx IN AddrModeB THEN 
IF Dest .Mode = DReg THEN 
EffAdr (Src, dea); 
ELSIF Src.Mode = DReg THEN 
EffAdr (Dest, mea + aea); 
ELSE 
Error (SrcLoc, OperErr); 
END; 
END; 


IF EAOSy IN AddrModeB THEN 
IF Dest.Mode = DReg THEN 
EffAdr (Src, ea); 
IF (Srce.Mode = ARDir) AND (Size = Byte) THEN 


(continued on page 50) 
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The new Wizard C version 3.0 sets new records for all out speed! 
It leaves other C compilers in the dust! When your project de- 
pends on that last ounce of speed, choose Wizard. 





The following SIEVE benchmark was run without register vari- 
able declarations on an IBM/PC with 640K memory and an 8087. 


Exec Time Code Size EXE Size 
Wizard C 3.0 : 6.8 130 7,766 
Microsoft ‘Tio 186 7,018 
Lattice 11.8 164 20,068 





Fast executable code, with multiple levels of optimization. 





Six memory Models, supporting up to 1 megabytye of codeand data, 
plus mixed model programming. 







Effective error diagnosis, including multiple source file cross-checking 
of function calls. 






A comprehensive runtime library, including fully portable C functions, 
MSDOS and 8086 functions. 


8086, 8087, 80186 and 80286 hardware support. 
Full Library Source Code included with package. 







ROM based application support, including a ROM development 
package available to create Intel Hex files. 





Fully ANSI compatible ijanguage features. 





Circle no. 116 on reader service card. 


WIZARO C 





‘‘.... he compiler’s performance makes it 
very useful in serious software develop- 
ment.” 
PC Tech Journal 
January, 1986 
‘“ Wizard’s got the highest marks for 
support.” 


“The Wizard Compiler had excellent 
diagnostics; it would be easier writin? 
portable code with it than with any other 
compiler we tested.”’ 


Dr. Dobb’s Journal 

August, 1985 

“,.written by someone who has been in 

the business a while. This especially 
shows in the documentation.” 


Computer Language 
February, 1985 





For MSDOS applications, we 
provide the most features of 
any C compiler, plus a full 
range of third party software: 
PANEL 
Greenleaf Libraries 
Essential Software Library 
PLINK8&6 
Pfix86plus 
Microsoft Assembler 3.0 


For stand-alone applications, 
we supply a ROM develop- 
ment package that carries 
your program all the way to 
Intel Hex files ready for a 
PROM burner. 


For debugging, the compiler 
emits full Intel debugging in- 
formation including local sym- 
bol and type information. 


Wizard C $450.00 
ROM Development Package $350.00 
Combined Package $750.00 


(617) 641-2379 


WIZARD 


SYSTEMS SOFTWARE, INC. 


11 Willow Court, Arlington, MA 02174 
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Listing Seventeen (listing continued) 


Error (OpLoc, SizeErr); 
END; 
ELSIF Srce.Mode = DReg THEN 
EffAdr (Dest, (mea + aea)); 
ELSE 
Error (SrcLoc, ModeErr); 
END; 


END; 


IF EAQSz IN AddrModeB THEN 


IF Src.Mode = MultiM THEN 
EffAdr (Dest, (mea + aea + {3}))}; 
GetMultReg (SrcOp, (Dest.Mode = ARPre), SrcLoc, Ext); 
ELSIF Dest.Mode = MultiM THEN 
EffAdr (Src, (mea + {11, 4}))? 
GetMultReg (DestOp, (Src.Mode = ARPre), DestLoc, Ext); 
Op := Op + {10}; {* set direction *) 
ELSE 
Error (SrcLoc, OperErr)}); 
END; 


INC (nO, 4); (* extension is part of OpCode *) 
INC (InstSize, 2); 
CardToLong (CARDINAL (Ext), ExtL); 


END; 


IF EA611 IN AddrModeB THEN 


IF Dest.Mode = CCR THEN 
Op := {14, 10, 7, 6}; 
EffAdr (Src, dea); 
ELSIF Dest.Mode = SR THEN 
Op := {14, 10, 9, 7, 6}: 
EffAdr (Src, dea); 
ELSIF Src.Mode = SR THEN 
Op := {14, 7, 6}; 
EffAdr (Dest, dea + aea); 
ELSIF Dest.Mode = USP THEN 
Op := {14, 11, 10, 9, 6, 5}; 
IF Srce.Mode = ARDir THEN 
Op := Op + BITSET (Sre.Rn); 
ELSE 
Error (SrcLoc, ModeErr); 
END; 
ELSIF Srce.Mode = USP THEN 
Op := {14, 11, 10, 9, 6, 5, 3}7 
IF Dest.Mode = ARDir THEN 
:= Op + BITSET (Dest.Rn); 
ELSE 
Error (DestLoc, ModeErr); 
END; 
ELSE 
EffAdr (Src, (ea + xxx)); 
IF (Size = Byte) AND (Src.Mode = ARDir) THEN 
Error (SrcLoc, SizeErr); 
END; 


M := ORD (Dest .Mode) ; 

IF (M IN (dea + aea)) OR (M > 11) THEN 
Error (DestLoc, ModeErr); 

ELSIF M < 7 THEN 


Op := Op + BITSET (M * 64) + BITSET (Dest.Rn * 512); 
ELSE (2 5T3 ae ee ET. 
Op := Op + {8, 7, 6} + BITSET ((M -— 7) * 512); 
END; 
OperExt (Dest); 
END; 
END; 


IF (Dest.Mode = CCR) AND (Src.Mode = Imm) THEN 


IF (Size67 IN AddrModeB) 
AND (EAOSe IN AddrModeB) 
AND (Exten IN AddrModeB) THEN 
IF 10 IN Op THEN (* NOT ANDI/EORI/ORI *) 
Error (DestLoc, ModeErr); 


ELSE 
Op := Op * {15, 14, 13, 12, 11, 10, 9, 8}; (* AND mask *) 
Op .- Op = {5, 4, 3, 2)3 (* OR mask *} 
END; 
END; 


END; 


IF (Dest.Mode = SR) AND (Srce.Mode = Imm) THEN 
IF (Size67 IN AddrModeB) 
AND (EAOSe IN AddrModeB) 
AND (Exten IN AddrModeB) THEN 
IF 10 IN Op THEN ({* NOT ANDI/EORI/ORI *) 
Error (DestLoc, ModeErr); 


ELSE 
Op := Op * {15, 14, 13, 12, 11, 10, 9, SF (* AND mask *) 
:= Op + {6, 5, 4, 3, 2}; {* OR mask *)} 
END; 
END; 
END; 
CardToLong (CARDINAL (Op), ObjOp); 
INC (InstSize, 2); 
INC (nO, 4); 
IF nO > 4 THEN 
FOR i := 1 TO 4 DO (* move ObjOp -- make room for extension *) 


ObjOp[i + 4] := ObjOp[i); 
ObjOp[i] := ExtL[iJ; 
END; 
END; 


nS := GetInstModeSize (Src.Mode, Size, InstSize}; 
ObjSre := Src.Value; 

nD := GetInstModeSize (Dest.Mode, Size, InstSize); 
Ob4jDest := Dest. Value; 


IF Quick THEN 
InstSize := 2; 
nS := 0; nD := 0; 
END; 
CardToLong (InstSize, AddrAdv); 


END MergeModes; 


TYPE 


DirType = (None, Org, Equ, DC, DS, Even, End); 


PROCEDURE ObjDir (OpCode : TOKEN; SrcOp : OPERAND; Size : SizeType; 


{* Gen 


VAR 


50 


VAR AddrCnt, ObjOp, ObjSrc, ObjDest : LONG; 
VAR nA, no, ns, nD : CARDINAL) : DirType; 
erates Object Code for Assembler Directives *) 


PROCEDURE GetObjectCode (Label, OpCode 


Dir : DirType; 
i, j : CARDINAL; 
LongString : ARRAY [1..20] OF INTEGER; 


BEGIN 
AddrAdv := LZero; 


IF CompareStr (OpCode, "ORG"}) = 0 THEN 
GetValue (SrcOp, AddrCnt); 
AddrBoundW (AddrCnt); 
Dir := Org; 

ELSIF CompareStr (OpCode, "EQU") = 0 THEN 
GetValue (SrcOp, ObjSrc); 
nS := 8; 
Dir := Equ; 

ELSIF CompareStr (OpCode, "DC"™} = 0 THEN 
CASE Size OF 


Word : AddrBoundW (AddrCnt); 
| Long : AddrBoundL (AddrCnt); 
|. Byte: &" 3 
END; 


IF SrcOp[0] = Quote THEN 
TempC := Length (SrcOp); 
IF TempC > 2 THEN 
InstSize := TempC - 2; 
END; 


(* String constant *) 


(* Don't count the Quotes *) 


£osmils j := 20; 

WHILE i <= InstSize DO ({* Change from ASCII to LONG *) 
CardToLong (ORD (SrcOp[i]), TempL); 
LongString[j] := TempL[2]; 
LongString[j - 1] := TempL[1]; 


ING >¢£}: DEC (3, 2)? 
END; 
i :=1; INC (4); 


WHILE j <= 20 DO (* Left Justify String *) 
LongString[i] := LongString[j]; 
Inc (i): INC (3); 

END; 


DEC (i); 

WHILE i > 16 DO (* Transfer 2 bytes to OpCode *} 
ObjOp[i - 16] := LongString[i]; 
INC (nO); DEC (i); 

END; 


WHILE i > 8 DO (* Transfer 4 bytes to Source Operand *) 
ObjSrce[i - 8) := LongString[i]; 
INC (nS); DEC (i); 

END; 


WHILE i > 0 DO 
Ob Dest [i] := LongString[i]; 
INC (nD); DEC (i); 

END; 


IF SrcOp[InstSize + 1] # Quote THEN 
Error ((SrcLoc + InstSize + 1), OperErr); 
END; 
ELSE (* not a string constant *) 
GetValue (SrcOp, ObjSrc); 
InstSize := ORD (Size); 
nS := InstSize * 2; 
END; 
CardToLong (InstSize, AddrAdv); 
nA := 6; 
Dir := DC; 
ELSIF CompareStr (OpCode, "DS") = 0 THEN 
GetValue (SrcOp, AddrAdv) ; 
nA := 6; nS := 2; ObjSre := LZero; 
Dix -:= BS; 
ELSIF CompareStr (OpCode, "EVEN") = 0 THEN 
AddrBoundW (AddrCnt}; 
Dir := Even; 
ELSIF CompareStr (OpCode, "END”) = 0 THEN 
nA := 6; 
Dir := End; 
ELSE 
Dir := None; 
END; 


RETURN (Dir); 
END Ob4jDir; 


PROCEDURE AdvAddrCnt (VAR AddrCnt : LONG); 
(* Advances the address counter based on the length of the instruction *) 


BEGIN 
LongAdd (AddrCnt, AddrAdv, AddrCnt); 
END AdvAddrCnt; 


TOKEN; 
SrcOp, DestOp : OPERAND; 
VAR AddrCnt, ObjOp, ObjSrc, ObjDest : LONG; 


VAR nA, no, ns, nD : CARDINAL}; 


(* Determines the object code for the operation as well as the operands 
(* Returns each (up to 3 fields), along with the length of each. 


VAR 
Dummy : BOOLEAN; 
Dir : DirType; 


BEGIN 
AddrAdv := LZero; 
InstSize := 0; 
nA := 0; nO := 0; nS := 0; nD := 0; 


IF Length (OpCode) = 0 THEN 
(* ensure no code generated *) 
RETURN; 

END; 


GetSize (OpCode, Size); 


Dir := ObjDir (OpCode, SrcOp, Size, 
AddrCnt, ObjOp, ObjSrc, Ob4Dest, 
nA, no,~ ns, nD 3 


IF (Length (Label) # 0) AND (Dir # Equ) THEN 
(* Check for phase error *} 
Dummy := ReadSymTab (Label, TempL, Dummy) ; 
IF LongCompare (TempL, AddrCnt) # 0 THEN 
Error (0, Phase); 
END; 
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SAS Institute Inc. 





Announces 


Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System—regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 
Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

™@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

™@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 
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routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 


i want to learn more about: 


C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 


1) the C compiler for MVS software developers 
©) the C compiler for CMS software developers 
CO the cross-compiler with PLINK86 and PLIB86 


today...so I’ll be ready for tomorrow. 
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Listing Seventeen (listing continued) 


END; FROM Strings IMPORT 
Length; 
IF Dir = None THEN (* Instruction *} 
AddrBoundW (AddrCnt); FROM LongNumbers IMPORT 
ELSE LONG, LongAdd, LongSub, CardToLong, StringToLong; 
RETURN; 
END; FROM SymbolTable IMPORT 
SortSymTab, ReadSymTab; 
Instructions (OpCode, OpLoc, Op, AddrModeA, AddrModeB) ; 
Src.Loc := SreLoc; Dest.Loc := DestLoc; FROM ErrorX68 IMPORT 
GetOperand (SrcOp, Src); (* Sre & Dest are RECORDS *} ErrorType, Error; 


GetOperand (DestOp, Dest); 
FROM Parser IMPORT 


IF DecBr IN AddrModeA THEN (* Decrement & Branch *)} OPERAND, SrcLoc; 
IF Srce.Mode # DReg THEN 
Error (SrcLoc, ModeErr); FROM CodeGenerator IMPORT 
END; LZero, AddrCnt, Pass2; (* BOOLEAN Switch *) 
BrValue := Dest.Value; 
TempL := AddrCnt; CONST 
TempC := 32767; (* Maximum Branch *) zero = 30H; (* The Ordinal value of the Character '0'" *) 
LongiInc (TempL, 2); (* move past instruction for Rel Adr Calc *}) Seven = 37H; (* The Ordinal value of the Character '7'" *) 


Quote = 47C; 
IF LongCompare (BrValue, TempL) < 0 THEN 


RevBr := TRUE; -—— 

LongSub (TempL, BrValue, BrValue); TYPE 

INC (TempC); (* can branch 1 farther in reverse *} OpMode = (DReg, (* Data Register *) 

ELSE ARDir, (* Address Register Direct *) 

RevBr := FALSE; ARInd, (* Address Register Indirect *) 

LongSub (BrValue, TempL, BrValue}; ARPost, (* Address Register with Post-Increment *) 
END; ARPre, (* Address Register with Pre-Decrement *} 

ARDisp, (* Address Register with Displacement *) 
CardToLong (TempC, TempL) ; (* Maximum Branch distance *} ARDisxX, (* Address Register with Disp. & Index *) 
Abs, {* Absolute Word (16-bit Address) *) 
IF LongCompare (BrValue, TempL) > 0 THEN AbsL, (* Absolute Word (32-bit Address} *) 

Error (DestLoc, BraErr); PCDisp, (* Program Counter Relative, with Displacement *) 
END; PCDisx, (* Program Counter Relative, with Disp. & Index *) 
IF RevBr THEN (* Make Negative *) Imm, (* Immediate *) 

LongSub (LZero, BrValue, BrValue) MultiM, (* Multiple Register Move *) 

END; SR, (* Status Register *) 

CCR, (* Condition Code Register *) 

CardToLong (4, AddrAdv); USP, (* User's Stack Pointer *) 

nA := 6; nO := 4; nS := 4; Null); (* Error Condition, or Operand missing *) 

CardToLong (CARDINAL (Op + BITSET (Src.Rn)), Ob4Op); 

ObjSre := BrValue; Xtype = (X0, Dreg, Areg); 

RETURN; SizeType = (SO, Byte, Word, S3, Long); 
END; 

OpConfig = RECORD (* OPERAND CONFIGURATION *} 

IF Brnch IN AddrModeA THEN (* Branch *) Mode : OpMode; 

BrValue := Src.Value; {* Destination of Branch *) Value : LONG; 

TempL := AddrCnt; Loc : CARDINAL; {* Location of Operand on line *) 

LongInc (TempL, 2); Rn : CARDINAL; (* Register number *) 

Xn : CARDINAL; (* Index Reg. nbr. *} 

IF Size # Byte THEN (* Byte Size ---> Short Branch *) Xsize : SizeType; (* size of Index *) 

TempC := 32767; (* Set maximum branch distance *) X : Xtype; (* Is index Data or Address reg? *) 
ELSE END; 

TempC := 127; 

END; 
VAR 
CASE LongCompare (BrValue, TempL) OF Size : SizeType; (* size for OpCode *) 
-1 : (* Reverse Branch *} AbsSize : SizeType; (* size of operand (Absolute only) *) 
RevBr := TRUE; InstSize : CARDINAL; (* Size of instruction, including operands *) 
INC (TempC); (* can branch 1 farther in reverse *) AddrModeA : ModeA; (* Addressing modes for this instruction *) 
LongSub (TempL, BrValue, BrValue); AddrModeB : ModeB; (* ditto *} 
| +1 3: (* Forward Branch *) Op : BITSET; (* Raw bit pattern for OpCode *) 
RevBr := FALSE; Src, Dest : OpConfig; 
LongSub (BrValue, TempL, BrValue); —--*) 
| 0 : IF Size = Byte THEN 
Error (SrcLoc, BraErr); 
END; PROCEDURE CalcValue (Operand : OPERAND; VAR Value : LONG) ; 
END; (* Calculates left and right values for GetValue *) 
CardToLong (TempC, TempL) ; VAR 
Full : BOOLEAN; 
IF LongCompare (BrValue, TempL) > 0 THEN Neg : BOOLEAN; 
Error (SrcLoc, BraErr); Dup : BOOLEAN; 
END; Num : CARDINAL; 


NumSyms : CARDINAL; 
IF RevBr THEN 


LongSub (LZero, BrValue, BrValue); (* Make negative *) BEGIN 
END; IF Operand[0] = '-' THEN 


Neg := TRUE; 
IF Size # Byte THEN Operand[0] := '0'; 
InstSize := 4; ELSE 


nS := 4; Neg := FALSE; 
ObjSre := BrValue; END; 
ELSE 


InstSize := 2; 


IF StrToCard (Operand, Num) THEN 
Dummy := LongToInt (BrValue, TempI); 


(* It is a number *) 


Op := Op + (BITSET (TempI) * {7, 6, 5, 4, 3, 2, 1, 0}); CardToLong (Num, Value); 
END; IF Neg THEN 
LongSub (LZero, Value, Value); 
nA := 6; nO := 4; END; 
CardToLong (InstSize, AddrAdv); ELSIF StringToLong (Operand, Value) THEN 
CardToLong (CARDINAL (Op), Ob 4Op); (* It is a HEX number *) 
RETURN; ELSIF (Operand(0] = Quote) AND (Operand[2] = Quote) THEN 
END; CardToLong (ORD (Operand[1])}, Value); 
ELSIF (Length (Operand) = 1) AND (Operand[0] = '*') THEN 
nA := 6; Value := AddrCnt; 
IF (Op = JMP) OR (Op = JSR) THEN (* Allows for 'JMP.S' *) ELSE 


IF (Size = Byte) AND (Src.Mode = AbsL) THEN 


(* It is a label, but may be undefined! *) 
Src.Mode := AbsW; 


IF NOT Pass2 THEN 
END; SortSymTab (NumSyms)} ; 
END; END; ; 
MergeModes (SrcOp, DestOp, ObjOp, ObjSrc, ObjDest, nO, nS, nD); IF NOT ReadSymTab (Operand, Value, Dup) THEN 
END GetObjectCode; eee = Se ee 
IF Dup THEN 
Error (SrcLoc, SymDup); 
BEGIN (* MODULE Initialization *)} END; ee 
LongClear (LZero); ({* Used as a constant *) END; 
AddrCnt := LZero; END CalcValue; 
Pass2 := FALSE; 


END CodeGenerator. 


1" dacnee GetValue (Operand : OPERAND; VAR Value : LONG); 
e e etermines value of operand (in Decimal HEX, or via S$ ol Table) * 
End Listing Seventeen = re el 


VAR 
TempOp : OPERAND; 


Listing Eighteen ca 


IMPLEMENTATION MODULE SyntaxAnalyzer; eee 
(* Analyzes the operands to Provide information for CodeGenerator *) 


FROM Conversions IMPORT 
StrToCard; 


(continued on page 54) 
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SORT/MERGE With 
RECORD SELECTION 
& OUTPUT 
REFORMATTING 
with OPT-TECH SORT 


_ New 3.0 version is even faster and more 
powerful. Improve your system's pertfor- 
mance with OPT-TECH SORT. OPT- 
TECH includes: 

* CALLable and Standalone use 

¢ All major languages 

Variable and fixed length 

Up to 10 sort/select fields 

Autoselect of RAM or disk 

Options: dBASE, BTrieve files 

1 to 10 files input 

No software max for 

# records 

Full memory utilization 

All common field types 

Bypass headers, limit sort 

Inplace sort option 

Output = Record or keys 

Try what you're using on an XT: 1,000 
128 byte records, 10 byte key in 33 


seconds. MSDOS $135 





Cross Compiler with 
COMPLETE SOURCE: QCX 


Expand your audience with a cross-com- 
piler and get full source code to the com- 
piler and library. QCX can help you learn 
techniques for compiler design and parsing 
while providing you with a low-cost de- 
velopment tool. Hosted on MSDOS, Unix 
(or Xenix), or Vax VMS and generates 
ROMable Z80 assembly code. Cross as- 
semblers and linkers are separately 
available. 

QCX supports long integers and single- 
precision floating point, with only minor 
restrictions to K&R standard. Arguments 
to functions are reversed, which allows 
any function to have a variable number 
of arguments. 

AO, an optional host optimizer, is avail- 
able for only $125. Buy QCX for $465 
and we’ll include AO FREE! 

Consider the native MSDOS compiler 
for $125. 










Dear C Programmer: 



















MSDOS $465 


We carry over 100 C compilers, 
or PCDOS. Call one of our knowledgeable consultants - toll fre 
There is no obligation. You must be completely satisfied with 
risk nothing with our 3] day risk-free trial on any product in this ad. 
Yours for more productive programming, 


NEW HOURS 
8:30 AM - 8:00 PM EST. 


C Programmers:  \ 
7 Ways to Increase Productivity 


C DYNAMO! 


WINDOWING: Full C Source, — 


No Royalties 
POWER WINDOWS and C 
FUNCTION LIBRARY 


Power Windows covers all the bases: over- 
lays, borders, 1-2-3 style or pop-up menus/ 
help windows, zap instantly on/off screen, 
status lines, horizontal/vertical scrolling, 
color control or highlighting, word-wrap, 
files to windows, keyboard to windows. 
Powerful, easy to use, integrated error 
messages, thorough documentation. Sup- 
ports IBM monochrome or color. 

C Function Library - includes 325 fun- 
damental functions with readable source 
and thorough documentation. 

No matter what you have, you need these. 
Best value available. Highly recom- 
mended! 


Power Windows MSDOS 
Only $119 

C Function Library MSDOS. 
Only $119 


Even for Small Files: 
Convenient, Fast Access 
CBTREE — Only $99 


Why spend time writing file management | 


code when you can use consistent, flexible, 
documented, professional functions? Even 
multiuser record locking and variable- 
length records are supported. 


Add, delete, and update without needing 


to reindex. Store keys and record locations 
in B + trees. 

You can access any record or group of 
records by the value of a user specific 
key. Search your files from any point, 
forward or backward. 

Full, balanced B-tree support includes 
use of multiple keys, unlimited number 
and length of keys. 

Use this powerful ISAM, even if you've 
previously done without. 

Learn how to write systems for managing 
large files by using CBTREE source as a 
guide. Modify it and transfer it to another 
operating environment without royalties. 


db_VISTA 
First Database Exclusively for C is also Royalty-Free, 


— “If you are looking for a sophisticated C programmer's database, this is it.” — 
- Dave Schmitt, President, Lattice, Inc. 

Designed exclusively for C, db_VISTA is a royalty-free programmer's DBMS. Take 
full advantage of C through ease of use, portability, and efficiency. You optimize for 
speed and efficient disk storage. 

Multiple key records, fast B-tree indexing, virtual memory disk accessing. Tailor 
db_VISTA to your needs by using only those features you require. Optional dBASE, 
R:BASE, and ASCII file transfer utilities make moving to db_VISTA a snap. 


MSDOS, Unix, Xenix, MacIntosh. Single user Source $459. 
Object $179. Multiuser Source $929. Object $450 


Add Full Modem Control to Your Program 
Greenleaf Comm Library 


Writing and debugging communication programs can be difficult and frustrating. Use 
stable, reliable and comprehensive existing code. Communicate with remote systems 
or databases with an asynchronous communications library for C. 

Individual transmission and reception ring buffers combine with an interrupt-driven sys- 
tem. 

Included are 3 library/object files, 220 functions, 230 page manual, complete source 
code. Library supports Microsoft 3.0, Lattice 3.0, Aztec, and others. Hayes-compatible 
modem commands, and a complete sample file transfer program. PCDOS $149 


Comprehensive C Development Library 
C-Worthy by Custom Design Systems 


~ C-WORTHY eliminates the writing of routine code and frees you to work on what 
makes your programs unique. Includes 425 pages of documentation with an in-depth 
tutorial and source code to a sample program. 

A complete, consistent, and interrelated set of subsystems and functions facilitates 
keyboard handling, background procedures, list manipulation, screen handling, menu 
management, windowing, error reporting, context-sensitive help, DOS interfacing, 
and MORE. 

Now you can support incompatible machines (like IBM PC, VICTOR 9000, Texas 
Instruments Professional, NEC APCIII, Wang PC, and HP 150) with the same .EXE 
file. No recompilation or relinking is required. All machine-dependent aspects of 
each microcomputer are isolated in a separate runtime overlay file which is loaded 
into the computer’s memory along with the application at runtime. C-Worthy appli- 
cations can also be executed on networks running Novell’s NetWare. 

The C-Worthy development utilities Help Librarian, Message Librarian, and Error 
Librarian allow applications to support alternate languages (like French, German, 
etc.) with the same source code. C-Worthy’s philosophy of program development is 
revolutionary, encouraging modular design through the use of action procedures as 
arguments to functions. C-Worthy’s unique design approach provides application de- 
velopers with a consistent and intuitive user interface with features for both novice 
and advanced users. No royalties. For Lattice C and others. 

MSDOS $295 


MSDOS $99. 


You want the best development software for your needs. These products will help you: 


* Speed your development efforts 
¢ Write even better programs 


interpreters, support libraries, debuggers, and addons, specifically designed for C programmers using MSDOS 


Call for a catalog, literature, advice and service you can trust 


800-421-8006 


THE PROGRAMMER’S SHOP™ 


128-D Rockland Street, Hanover, MA 02339 
Mass: 300-442-8070 or 617-826-7531 






e - ford 
the products you purchase or you will receive a full refund or replacement. You 


* Increase productivity . 
* Reduce your programming frustration 


etails. comparisons, or for one of our specially prepared packets on C. 


Ca nk 


Bruce W. Lynch, President 







“You've got everything I’ve heard of, and much I 

haven’t! . . . Normally, I expect my money to be 

“fan letter” enough, but you people are SUPER?” 
— Shel Hall 
Artell Corp. 
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Listing Eighteen (listing continued) 


BEGIN 
i -3= Os: 
Value := LZero; 
InQuotes := FALSE; 
op := "+"; 
REPEAT 
3 := 0; 


c := Operand[i]; 
TempOp[j] := ¢; 
IF c = Quote THEN 
InQuotes := NOT InQuotes; 
END; 
INC (1); INC (3); 
IF c = OC THEN 


EXIT; 
END; 
IF (c = '+')} AND (NOT InQuotes) THEN 
EXIT; 
END; 
IF (c = '-') AND (i > 1) AND (NOT InQuotes) THEN 
EXIT; 
END; 
END; 
TempOp[j - 1) := OC; (* in case c is +/- *) 
CalcValue (TempOp, TempVal); 
IF op = '-' THEN 
LongSub (Value, TempVal, Value); 
ELSE 


LongAdd (Value, TempVal, Value); 
D; 


op := c3} 
UNTIL op = 0C; 
END GetValue; 


PROCEDURE GetSize (VAR Symbol : ARRAY OF CHAR; VAR Size : SizeType); 
(* determines size of opcode/operand: Byte, Word, Long *) 


VAR 
i: CARDINAL; 
c : CHAR; 


BEGIN 
i := 0; 
REPEAT 
c := Symbol [i]; 
INC {i); - 
UNTIL (c = OC} OR (c = '.'); 


IF c = OC THEN 
Size := Word; (* Default to size Word = 16 bits *) 
ELSE 
c := Symbol [i]; (* Record size extension *) 
Symbol[i - 1] := 0c; (* Chop size extension off *) 
IF (c = 'B') OR (c = 'S') THEN (* Byte or Short Branch/Jump *) 
Size := Byte; 
ELSIF c = 'L' THEN 
Size := Long; 
ELSE 
Size := Word; (* Default size *) 
END; 
END; 
END GetSize; 


FROCEDURE GetAbsSize (VAR Symbol : ARRAY OF CHAR; VAR AbsSize : SizeType); 
(* determines size of operand: Word or Long *) 


c := Symbol [i]; 
IF c = *(* THEN 
INC (ParCnt); 
END; 
IF c = ')* THEN 
DEC (ParCnt); 
END; 
INC (i); 
UNTIL (c = 0C) OR ((c = '.*) AND (ParCnt = 0)); 


IF c = OC THEN 
AbsSize := Long; 
ELSE 


¢ 3:= Symbol [i]; (* Record size extension *) 
Symbol[i - 1] := 0c; (* Chop size extension off *) 
IF (c = 'W') OR (c = "S')} THEN 

AbsSize := Word; 
ELSE 

AbsSize := Long; 
END; 

END; 
END GetAbsSize; 


PROCEDURE GetInstModeSize (Mode : OpMede; Size : SizeType; 
VAR InstSize : CARDINAL) : CARDINAL; 


(* Determines the size for the various instruction modes. = 
VAR 
n : CARDINAL; 
BEGIN 
CASE Mode OF 
ARDisp, 
ARDisX, 
PCDisp, 
PCDisx, 
AbswW $2. nN -g=-23 
| AbsL > on t= 4; 
| MultiM : IF Pass2 THEN 
n := 0; (* accounted for by code generator *) 
ELSE 
no s=-2> 
END; 
| Imm : IF Size = Long THEN 
n s= 4; 
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ELSE 
= 2: 
END; 
ELSE 
n := 0; 
END; 


INC (InstSize, n); 
RETURN (n * 2); 


END Get InstModeSize; 


PROCEDURE GetOperand (Oper : OPERAND; VAR Op : OpConfig); 
(* Finds mode and value for source or destination operand *) 


VAR 


ch : CHAR; 

C : CARDINAL; (* holds the ordinal value of a charcter *} 
i, 4 : CARDINAL; 

Len : CARDINAL; (* Calculated Length of Oper *) 

TempOp : OPERAND; 

MultFlag : BOOLEAN; 


BEGIN 
Op.Mode := Null; Op.X := X0; 
Len := Length (Oper); 


IF Len = 0 THEN 
RETURN; 
END; 


GetAbsSize (Oper, AbsSize); 


IF Oper[0] = '#"' THEN (* Immediate *) 
IF Pass2 THEN 
i := 0; 
REPEAT 
ENC? (1) 7 
Oper[i - 1] := Oper[i]; 
UNTIL Oper[i] = 0¢; 
GetValue (Oper, Op.Value); 
END; 
Op.Mode := Imm; 
RETURN; 
END; 


IF Len = 2 THEN (* possible Addr or Data Register *) 
C := ORD (Oper[1]); 
IF (Oper{0] = 'S'} AND (Oper[{1] = 'R') THEN 
(* Status Register *) 
Op.Mode := SR; 
RETURN; 
ELSIF (Oper[0] = 'S') AND (Oper[1] = 'P')} THEN 
(* Stack Pointer *) 
Op.Mode := ARDir; 
Op.Rn := 7; 
RETURN; 
ELSIF (C >= Zero) AND (C <= Seven) THEN 
(* Looks Like an Addr or Data Reg *) 
IF Oper[0] = 'A' THEN (* Address Register *) 
Op.Mode := ARDir; 
Op.Rn := C —- Zero; 
RETURN; 
ELSIF Oper[0] = 'D’ THEN (* Data Register *) 
Op.Mode := DReg; 
Op.Rn := C - Zero; 


RETURN; 
ELSE 
(* may be a label -- ignore for now *) 
END; 
ELSE 
(* may be a label -- ignore for now *) 
END; 
END; 


IF Len = 3 THEN 
IF (Oper[0] = 'C')} AND (Oper[1] = 'C') AND (Oper[2] = 'R') THEN 
(* Condition Code Register *} 
Op .Mode := CCR; 
RETURN; 
ELSIF (Oper[0] = 'U') AND (Oper[1] = 'S') AND (Oper[2] = 'P') THEN 
(* User's Stack Pointer *) 
Op.Mode := USP; 
RETURN; 
ELSE 
(* may be a label -- ignore for now *) 
END; 
END; 


IF (Len = 4) AND (Oper(0] = *(") AND (Oper(3] = ')') THEN 
IF (Oper[{1] = 'S') AND (Oper[2] = 'P') THEN 
Op.Mode := ARInd; 
Op.Rn := 7; 
RETURN; 
ELSIF Oper[1] = 'A' THEN 
C := ORD (Oper[2])); 
IF (C >= Zero) AND (C <= Seven) THEN 
Op.Mode := ARInd; 
Op.Rn := C - Zero; 
RETURN; 
ELSE 
Error (Op.Loc, SizeErr); 
RETURN; 
END; 
ELSE 
Error (Op.Loc, AddrErr); 
RETURN; 
END; 
END; 


IF (Len = 5) AND (Oper[0] = '(') 
AND (Oper[3] = ')") AND (Oper[4] = '+') THEN 
(* Address Indirect with Post Inc *) 
IF (Oper[1] = 'S') AND (Oper[2] = 'P") THEN 
(* System Stack Pointer *) 
Op .Mode := ARPost; 
Op.Rn := 7; 
RETURN 
ELSIF Oper[1] = 'A' THEN 
C := ORD (Oper[2]); 
IF (C >= Zero) AND (C <= Seven) THEN 
Op.Mode := ARPost; 
Op.Rn := C - Zero; 
RETURN; 
ELSE 
Error (Op.Loc, SizeErr); 
RETURN; 
END; 


(continued on page 56) 
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Listing Eighteen (listing continued) 


ELSE 
Error (Op.Loc, AddrErr); 
RETURN; 
END; 
END; 


IF (Len = 5) AND (Oper[(0] = ‘'-") 
AND (Oper[1] = '(') AND (Oper[4] = ')}') THEN 
IF (Oper[2] = 'S') AND (Oper[3] = 'P') THEN 
(* System Stack Pointer *) 
Op.Mode := ARPre; 
Op.Rn := 7; 
RETURN; 


ELSIF Oper[2] = 'A' THEN 


C := ORD (Oper ([3]); 
IF (C >= Zero) AND (C <= Seven) THEN 
Op.Mode := ARPre; 
Op.Rn := C - Zero; 
RETURN; 
ELSE 
Error (Op.Loc, SizeErr); 
RETURN; 
END; 


ELSE 


Error (Op.Loc, AddrErr); 
RETURN; 


END; 


(* Try to split off displacement (if present) *) 

fo gme Oy 

ch := Oper([i]; 

WHILE (ch # '('}) AND (ch # OC) DO (* move to TempOp *} 
TempOp[i] := ch; 


INC (i); 
ch := Oper[i]; 
END; 


TempOp[i] := OC; (* Displacement (it it exists) now in TempOp 


IF ch = '('" THEN (* looks like a displacement mode *) 
IF Pass2 THEN 


GetValue (TempOp, Op.Value); (* Value of Disp. *} 


END; 


s=0; 


REPEAT (* put rest of operand (eg. (An,Xi) in TempOp *) 


ch := Oper [i]; 
TempOp[j] := ch; 
INC (i); INC (3)? 


UNTIL ch = 0C; 
IF Length (TempOp) > 4 THEN {* Index may be present *) 


i := 4; (* Index starts at 4 *)} 

4 := 0; 

REPEAT (* put Xi in Oper *} 
ch := TempOp[i]; 
Oper[j] := ch; 
INC (i); INC (4); 

UNTIL ch = OC; 


IF Oper[j - 2) = '}* THEN 
Oper[j - 2] := 0C; 

ELSE 
Error (Op.Loc, AddrErr); 
RETURN; 

END; 


GetSize (Oper, Op.Xsize); 

IF Op.Xsize = Byte THEN 
Error (Op.Loc, SizeErr); 
RETURN; 

END; 


C := ORD (Oper[1]); 
IF (Oper[0] = 'S') AND (Oper[1] = 'P') THEN 
(* Stack Pointer *) 
Op.X := Areg; 
Op.Xn := 7; 
ELSIF Oper[0] = 'A‘* THEN 
IF (C >= Zero) AND (C <= Seven) THEN 
Op.X := Areg; 
Op.Xn := C — Zero; 
ELSE 
Error (Op.Loc, SizeErr); 
RETURN; 
END; 
ELSIF Oper(0] = 'D' THEN 
IF (C >= Zero) AND (C <= Seven) THEN 
Op.X := Dreg; 
Op.Xn := C - Zero; 
ELSE 
Error (Op.Loc, SizeErr); 
RETURN; 
END; 
ELSE 
Error (Op.Loc, AddrErr); 
RETURN; 
END; 


IF (TempOp[1] = 'P'}) AND (TempOp[2] = 'C') THEN 
Op.Mode :=PCDisX; 
RETURN; 

ELSIF (TempOp[1] = 'S') AND (TempOp[2] = 'P') THEN 
(* Stack Pointer *) 


Op.Rn := 7; 
Op.Mode := ARDisxX; 
RETURN; 


ELSIF TempOp[1] = ‘A' THEN 

C := ORD (TempOp[2]); 

IF (C >= Zero) AND (C <= Seven) THEN 
Op.Rn := C - Zero; 
Op.Mode := ARDisX; 
RETURN; 

ELSE 
Error (Op.Loc, SizeErr); 
RETURN; 

END; 

ELSE 
Error (Op.Loc, AddrErr); 
RETURN; 

END; 


ELSE {* No Index *) 


IF (TempOp[1] = 'P') AND (TempOp[2] = 'C') THEN 
Op.Mode := PCDisp; 
RETURN; 

ELSIF (TempOp[{1] = 'S') AND (TempOp[2] = 'P') THEN 
(* Stack Pointer *) 
Op.Mode := ARDisp; 
Op.Rn := 7; 
RETURN; 

ELSIF TempOp[1] = ‘A‘' THEN 


C := ORD (TempOp[2]); 

IF (C >= Zero) AND (C <= Seven) THEN 
Op.Rn := C - Zero; 
Op .Mode := ARDisp; 


RETURN; 
ELSE 
Error (Op.Loc, SizeErr); 
RETURN; 
END; 
ELSE 
Error (Op.Loc, AddrErr); 
RETURN; 
END; 
END; 
END; 
(* Check to see if this could be a register list for MOVEM: *) 
i s= 0; 
MultFlag := FALSE; 
LOOP 


ch := Oper[i]; INC (i)? 
IF ch = OC THEN 
MultFlag := FALSE; 
EXIT; 
END; 
IF (ch = 'A') OR (ch = 'D') THEN 
ch := Oper[i]; INC: (1) 3 C := ORD (ch); 
IF ch = OC THEN 
MultFlag := FALSE; 
EXIT; 


END; 
IF (C >= Zero) AND (C <= Seven) THEN 


ch := Oper[i]; ING (ij 

IF ch = OC THEN 
EXIT 

END; 

IF (ch = '/') OR (ch = ‘-") THEN 
MultFlag := TRUE; 

END; 


ELSE 


MultFlag := FALSE; 


EXIT; 
END; 
ELSE 
MultFlag := FALSE; 
EXIT; 
END; 

END; 

IF MultFlag THEN 
Op.Mode := MultiM; 
RETURN; 

END; 


(* Must be absolute mode! *) 
IF Pass2 THEN 
GetValue (Oper, Op.Value}; 
END; 
IF AbsSize = Word THEN 
Op.Mode := AbsW; 
ELSE 
Op.Mode := AbsL; 
END; 
END GetOperand; 


PROCEDURE GetMultReg (Oper : OPERAND; PreDec : BOOLEAN; 
Loc : CARDINAL; VAR MultExt : BITSET); 
(* Builds a BITSET marking each register used in a MOVEM instruction *)} 


TYPE 
MReg = (DO, Dl, D2, D3, D4, DS, D6, D7, 
AO, Al, A2, A3, A4, AS, A6, AT); 


VAR 
i, 43 : CARDINAL; 
ch : CHAR; 
C : CARDINAL; {* ORD value of ch *) 
Tl, T2 : MReg; (* Temporary variables for registers *) 
RegStack : ARRAY [0..15] OF MReg; (* Holds specified registers *) 
SP : CARDINAL; (* Pointer for Register Stack *) 
RegType : (D, A, Nil)? 
Range : BOOLEAN; 


BEGIN 
SP := 0; 
Range := FALSE; 
RegType := Nil; 
i := 0; 


ch := Oper[i];? 
WHILE ch # OC DO 
IF SP > 15 THEN 
Error (Loc, SizeErr); 
RETURN; 
END; 


C := ORD (ch); 
IF ch = 'A' THEN 
IF RegType = Nil THEN 
RegType := A; 
ELSE 
Error (Loc, OperErr); 
RETURN; 
END; 
ELSIF ch = 'D* THEN 
IF RegType = Nil THEN 
RegType := D; 
ELSE 
Error (Loc, OperErr); 
RETURN; 
END; 
ELSIF (C >= Zero) AND (C <= Seven) THEN 
IF RegType # Nil THEN 
T2 := VAL (MReg, (ORD (RegType) * 8) + (C - Zero))}; 
IF Range THEN 
Range := FALSE; 
Tl := RegStack[SP - 1]; (* retreive lst Reg in range *) 
FOR j := (ORD (T1) + 1) TO ORD (T2) DO 
RegStack[SP] := VAL (MReg, 4)-3 
INC (SP); 
END; 
ELSE 
RegStack([SP] := T2; 
INC (SP); 
END; 
ELSE 
Error (Loc, OperErr); 
RETURN; 


(continued on page 58) 
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PROBLEM: There's just no easy way to move from one 
software program to another. 


THE SOFTLOGIC SOLUTION: Software Carousel 


Now you can keep up to 10 programs 
loaded and ready to run. 


Hard to believe, but some people are 
happy with just one kind of PC software. 
Well, this is not a product for them. 

But if you're someone who 
depends on many packages, all 
the time—someone who’ use 
several programs at once if you 
could, well now you can. With 
Software Carousel. 


Why call it “Software 
Carousel’’? 


In some ways, Software 
Carousel works like the slide 
projector youre used to. You 
load a handful of pictures, view one at a 
time, then quickly switch to another. A 
simple idea, with powerful possibilities 
for computing. 

Here’s how it works. When you start 
Software Carousel, just tell it how much 
memory you have, load your software and 
go to work. 

Need to crunch numbers? aah to your 
spreadsheet. Need your word processor? 
Don't bother saving your spreadsheet file. 
Just whip over to your document and do 
your work. Snap back to your spreadsheet, 
and it’s just like you left it. 

With up to ten different programs at your 
fingertips, you'll have instant access to your 
database, communications, spelling checker, 

spreadsheet, word processor, RAM resident 
utilities, languages, anything you like. 


Reach deep into expanded memory. 


This could be the best reason ever for 
owning an expanded memory card, like the 


Intel Above Board, AST RAMpage, or any 


Circle no. 284 on reader service card. 


With Software Carousel 
running in RAM, you can 
load a program and retrieve 
a file up to 15 times faster. 
Test conducted on an |BM XT 





card compatible with the L/I/M Extended 


Memory Standard. 

Software Carousel puts programs into 
this “high-end” memory for temporary 
storage when theyre not in use. And 
switches them back out when 
you want them. It’s fast, effic- 
ient, and easy. 

If you want, Software Car- 
ousel will even use your hard 
drive for swapping. Just allo- 
cate a portion for storage, and 
go to work. 


Sidekick, Superkey 
and Ready. All at the 


same time. 


You know what happens if 
you try loading two or more RAM resi- 
dent utilities at once. You 
get crashed keyboards, Re 
frozen screens, all kinds of 
interference between pro- 
grams fighting for control. 

With Software Carou- 
sel, you can have as many 


; pe Name 
accessories and utilities on- 
Company 
tap as you want. Just load 
different ones in different Address 
Carousel partitions. Since City 


they can’t fight. 


Card # Exp. Date 
The easy way to Signature 
maximize PC power. SoftLogic Solutions, Inc. 
530 Chestnut Street SOFTLOGIC 
With all this power, you Manchester, NH 03101 ETLOGIC 
might think Software Car- 800-272-9900 SOLUTION SOLUTIONS 


ousel is complicated and 
difficult to use. Not so. Set 
it up once, and it will re- 
member forever. Better still, 


they can’t see each other, | 


€ Software Carousel49°™ 


YES! Send me 
Special Introductory Price of just $49.95. 











Check Enclosed VISAN) MC lO AMEX LI 





(603-627-9900 in NH) 


Call today: 800-272-9900 | 


Carousel will look for the programs you 
use most often, and optimize them for the 
quickest access. 

You can spend a lot more money, and 
still not get the convenience and produc- 
tivity increase of Software Carousel. 

The way we see it, there are certain 
things you have the right to expect from 
your computer. Access to your software is 
one of them. And at our special introduct- 
ory price of just $49.95* Software Carousel 
is the best way to get it. 

But hurry. This price won't last long. 

Order today at 800-272-9900 (603-627- 
9900 in NH) or send the coupon below. 

Special combination pricing is available 
for the purchase of Software Carousel 


and other SoftLogic products, including 
DoubleDOS and Disk Optimizer. 


copies of Software Carousel at the 





State/Zip 














*plus $5.00 shipping and me 
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Listing Eighteen (listing continued) 


END; 
ELSIF ch = ‘-' THEN 
IF (Range = FALSE) AND (RegType # Nil) AND (i > 0) THEN 
RegType := Nil; 
Range := TRUE; 
ELSE 
Error (Loc, OperErr); 
RETURN; 
END; 
ELSIF ch = '/' THEN 
IF (Range = FALSE) AND (RegType # Nil} AND (i > 0} THEN 
RegType := Nil; 
ELSE 
Error (Loc, OperErr}; 
RETURN; 
END; 
ELSE 
Error (Loc, OperErr)}; 
RETURN; 
END; 


INC (i); 
ch := Oper[i]; 
END; 


MultExt := {}; 

FOR j := 0 TO SP - 1 DO 
C := ORD (RegStack[4]); 
IF PreDec THEN 

C == 15 - C3 

END; 
INCL (MultExt, C); 

END; 

END GetMultReg; 


END SyntaxAnalyzer. 


End Listing Eighteen 


Listing Nineteen 


IMPLEMENTATION MODULE Listing; 
(* Creates a program listing, including Addresses, Code & Source. *)} 


FROM Files IMPORT 
FILE, Write; 


FROM LongNumbers IMPORT 
LONG, LongPut; 


FROM Parser IMPORT 
TOKEN, Line; 


FROM SymbolTable IMPORT 
ListSymTab; 


FROM Conversions IMPORT 
CardToStr; 


IMPORT ASCII; 


CONST 
LnMAX = 55; 
VAR 
LnCnt CARDINAL; ({* counts number of lines per page *) 


PgCnt : CARDINAL; (* count of page numbers *} 


PROCEDURE WriteStrF (f : FILE; Str : ARRAY OF CHAR); 
(* Writes a string to the file *) 


VAR 

i : CARDINAL; 
BEGIN 

1 = O03 


WHILE Str[i] # OC DO 
Write (f, Str[i]); 
INC. (i}>3 
END; 
END WriteStrF; 


PROCEDURE CheckPage (f : FILE); 
(* Checks if end of page reached yet -- if so, advances to next page. *) 


VAR 
i : CARDINAL; 
PgCntStr : ARRAY [0..6] OF CHAR; 


BEGIN 
INC (LnCnt); 
IF LnCnt >= LnMAX THEN 
LnCnt := 1; 
INC (PgCnt); 
Write (f, ASCII.f£f£); (* Form Feed for new page *)} 
IF CardToStr (PgCnt, PgCntStr) THEN (* Print New Page Number *) 
FOR i := 1 TO 60 DO 
Write (£, ° "): 
END; 


WriteStrF (f, "Page "); 
WriteStrF (f, PgCntStr); 

END; 

FOR Luse 1 TOvsIDO 
Write (f, ASCII.cr); 
Write (f, ASCII.1f£); 

END; 

END; 
END CheckPage; 
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PROCEDURE StartListing (f : FILE); 
(* Sign on messages for listing file -- initialize *) 
BEGIN 
Write (f, ASCII.ff£); (* Start on a clean page *} 


WriteStrF (f, ” 68000 Cross Assembler”); 
Write (f, ASCII.cr); 
Write (f, ASCII.1f£); 


WriteStrF (f, " Copyright (c) 1985 by Brian R. Anderson"); 
Write (f, ASCII.cr); 
Write (f, ASCII.1f£)}; 


Write (f, ASCII.cr); 
Write (f, ASCII.1f£); 


LnCnt := 1; 
PgCnt := 1; 
END StartListing; 


PROCEDURE WriteListLine (f : FILE; 
AddrCnt, ObjOp, ObjSrc, ObjDest : LONG; 
nA, no, ns, nD : CARDINAL} ; 
(* Writes one line to the Listing file, Including Object Code *) 


CONST 
Ob jMAX = 30; 
VAR 
i : CARDINAL; 
BEGIN 
IF nA = 0 THEN (* nA is always either 0 or 6. Address field = 8 *) 
FOR i := 1 TO 8 DO 
Write (f°. "}+ 
END; 


ELSE 
LongPut (f, AddrCnt, 6); 
Write (£, 7 *): 
Write (£, ° *}% 
END; 
LongPut ({f, ObjOp, nO}; 
LongPut (f, ObjSrc, nS}; 
LongPut (f, Ob jDest, nD); 
i := 8 + nO + nS + nD; 
WHILE i < ObjMAX DO 
Write (f, °° 7}: 
INC (i); 
END; 


WriteStrF (f, Line); 
Write (f, ASCII.cr); 
Write (f, ASCII.1f£); 


CheckPage (f); 


END WriteListLine; 


PROCEDURE WriteSymTab (f : FILE; NumSym : CARDINAL); 
(* Lists symbol table in alphabetical order *) 


VAR 
Label : TOKEN; 
Value : LONG; 
i : CARDINAL; 


BEGIN 
LnCnt := 1; 
INC (PgCnt); 


WriteStrF {f, * * * * Symbolic Reference Table * * *"); 
FOR i := 1 TO 3 DO 

Write (f, ASCII.cr); 

Write (f, ASCII.1f£); 
END; 


FOR i := 1 TO NumSym DO 

ListSymTab (i, Label, Value); 
WriteStrF (f, Label); 
BEiSestrs (f>-." 5° "ys 
LongPut (f, Value, 8); 
Write (f, ASCII.cr); 
Write (f, ASCII.1f£); 
CheckPage (f); 

END; 


Write (f, ASCII.ff£); 
END WriteSymTab; 


End Listing Nineteen 


Listing Twenty 


IMPLEMENTATION MODULE Srecord; 


(* Creates Motorola S-records of program: =) 
(* SO = header record, *) 
(* S2 = code/data records (24 bit address), *} 
(* S8 = termination record (24 bit address). *) 


FROM Files IMPORT 
FILE, Write; 


FROM Strings IMPORT 
Length; 


(continued on page 60) 
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PROBLEM: Handling your need for more megabytes, 


without spending megabucks ona new drive. 


THE SOFTLOGIC SOLUTION: Cubit” 


Now get up to twice the capacity from 
all your storage media. 


You know what happens. The more you use 
your computer, the more information you 
create. And the faster you fill up your disk. 

The LOMB drive that once seemed enor- 
mous is now jammed with important 


files. That 20MB that should have 


lasted years is crowded in a 






matter of months. : 
Of course you could keep / 
buying bigger hard drives. i 
Or you could get Cubitand = & 
get the maximum storage Spreadsheet Binary 
files files 


space from the drives you 
already have. 


What is Cubit? 


In brief, Cubit is an advanced software tool 
that automatically reduces the number of 
bytes required to store a file, then converts the 
file back to its original size when retrieved. 
Some programmers call this effect “data 
compression,” others, “disk expansion.” Either 
way, the result is the same. 

Here's how it works. When Cubit com- 
presses a file, it first compares each word to its 
massive English word dictionary. Words that 
match are reduced to a predetermined code of 
just one, two or three bytes each. It then saves 
the abbreviated version to disk. Decompres- 
sion works just the opposite. 

To accommodate other words and symbols, 
Cubit uses two more compression techniques. 
One assigns new, shorter codes to unusual 
words. Another compresses according to the 
frequency of character strings in non-text data. 
So no matter what kind of files you create, 
Cubit ensures maximum space savings. 

Best of all, you'll be using the same fast, 
reliable data compression techniques used 
on mainframe computers for decades. 


compression on data fil 





j 80% 


es, effectively 
doubling the storage capacity of all your 
magnetic media. 


How much disk space will you save? 
Because the vast majority of data created 
on PC’s is standard ASCII text— 
numbers and other English 
language symbols—we've 
optimized Cubit for word 
processing and database 
files. With these, you'll get a 
minimum of 50% expansion on 
up to a full 100% or more. 

At the same time, you can 
expect a significant 30% to 
50% improvement with 
other kinds of data. Including 
spreadsheet files, program code, 
graph and image files, even binary 








Text 
files 


With Cubit, you'll get as much as 100% 


data. 


does with hard disk drives. 


Run Cubit where you want, 
when you want. 


Maybe you'll want to use Cubit 
for all your files, or maybe just 
some. So Cubit lets you specify 
exactly which files to work on 
and which ones to leave alone. 

In RAM resident mode, 
Cubit works quickly and 
invisibly, compressing and 
decompressing right from 
within any program you run. 
Or use Cubit’s powerful file 
management mode. It supports 
wild-card and global file names, 
and addresses sub-directories 
up to thirty levels deep. 


Save time and money, as well 
as disk space. 


A compressed file is a smaller 


file. So with Cubit, back-ups 


And Cubit works just as well 
with floppies and tape cassettes as it 


take less time, as well as less space. And 
communicating compressed files means 
significant savings on phone line charges. 
Any way you look at it, Cubit will pay for 
itself in no time. And that’s especially true now. 


letters, 


Special limited time offer. 


Buy Cubit now and you'll save even more. 
Because for a limited time, you can buy Cubit 
at the special introductory price of just $49.95? 
But hurry. This special price won't last long. 

Ask for Cubit at your computer dealer. Or 
order directly from SoftLogic Solutions by 
calling 800-272-9900 (603-627-9900 in NH), 
or mail in the coupon below. 

Special pricing is available when you buy 
Cubit along with other SoftLogic products 
including DoubleDOS, Software Carousel 
and Disk Optimizer. Ask for details. 


€9 Cubit™ 4995 





YES! Please send me____copies of Cubit at this special 
introductory price. 


Name 














Address 

CO ie La ne Te ee 

Check Enclosed 0 VISALI MCU] AMEX TL) 
Card # Exp. Date 
Signature 


SoftLogic Solutions, Inc. 
530 Chestnut Street 
Manchester, NH 03101 


SOFTLOGIC 
800-272-9900 


| SOLUTIONS 
(603-627-9900 in NH) 


| Call today:800-272-9900 | 


i - 
*plus $5.00 shipping and handling. 


a 
| Company 


| 
| 
| 
| 
Statey fips 
| 
| 
| 
| 
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Listing Twenty (listing continued) 


FROM LongNumbers IMPORT 
LONG, LongAdd, LongSub, LongInc, LongDec, LongClear, 
LongCompare, CardToLong, LongPut; 


IMPORT ASCII; 


CONST 
CountMAX = 16; 
SrecMAX = CountMAX * 2; 
XrecMAX = SrecMAX; 


VAR 
StartAddr : LONG; ({* address that record starts on *) 
TempAddr : LONG; (* running address of where we are now *) 
CheckSum : LONG; 
Count : CARDINAL; 
Sdata : ARRAY [1..SrecMAX]) OF INTEGER; 
Sindex : CARDINAL; (* index for Sdata array *} 
Xdata : ARRAY [1..XrecMAX] OF INTEGER; (* Overflow for Sdata *) 
Xindex : CARDINAL; (* index for Xdata array *)} 
Boundary : BOOLEAN; (* marks Address MOD 16 boundary of S-record *) 
LZero : LONG; (* used as a constant = 0 *)} 


(* count of HEX-pairs in S-record *) 


PROCEDURE Complement; 
BEGIN 
LongSub (LZero, CheckSum, CheckSum); (* 2's Complement *) 
LongDec (CheckSum, 1); (* Make it 1's Complement *) 
END Complement; 


(* CheckSum *) 


PROCEDURE AppendSdata (Data : LONG; n : CARDINAL) : BOOLEAN; 
(* Transfers data to Sdata, and updates Count & CheckSum. *)} 
(* If no room: Data goes to Xdata & FALSE returned. *) 


VAR 

T : LONG; (* temporary -- used only as a 2 digit HEX number *) 
BEGIN 

T := LZero; 


WHILE (n # 0) AND (Count # CountMAX) AND (NOT Boundary) DO 
Sdata[Sindex] := Data[n]; 
Sdata[(Sindex - 1] := Data[n - 1]; 


T(2] := Data[n]; T[1] := Data[n - 1]; 
LongAdd (T, CheckSum, CheckSum) ; 


DEC (n, 2); 
DEC (Sindex, 2); 
INC (Count); 


LongInc (TempAddr, 1); 
IF TempAddr[1] = 0 THEN 
Boundary := TRUE; 
END; 
END; 


(* i.e., TempAddr MOD 16 = 0 *) 


IF (Count = CountMAX) OR (Boundary) THEN 
WHILE n > 0 DO (* Add Data to Xdata (in reverse) *) 
INC (Xindex); 
Xdata[Xindex] := Data[n]; 
DEC (n); 
END; 


RETURN FALSE; 
ELSE 
RETURN TRUE; 
END; 
END AppendSdata; 


(* Sdata is full *) 


PROCEDURE DumpSdata (f : FILE); 
(* Writes an S2 record to the file *) 


VAR 
T : LONG; (* temporary -- used to output Count & CheckSum *} 
i, 3 : CARDINAL; 
BEGIN 
IF Count = 0 THEN 
RETURN; (* nothing to dump *) 
END; 


Write ({f£, 'S*}> 
Write (f, '2'); 


CardToLong (Count + 4, T); 
LongPut (f, T, 2); 
LongAdd (T, CheckSum, CheckSum); 


(* extra for Address & Checksum *) 
(* Add Count to CheckSum *) 


LongPut (f, StartAddr, 6); 

{* Add Address to CheckSum *) 

T := LZero; 

T[1]) := StartAddr[1]; T[2] := StartAddr[2]; 
LongAdd (T, CheckSum, CheckSum); 

T[1] := StartAddr[3]; T[2] := StartAddr[4]; 
LongAdd (T, CheckSum, CheckSum); 

T[1] := StartAddr[5]; T(2) := StartAddr[6]; 
LongAdd (T, CheckSum, CheckSum); 


IF Count < CountMAX THEN 
ty 3m Te 
FOR := Sindex + 1 TO SrecMAX DO 
Sdata[j]) := Sdata[i]; 
INC (3)? 
END; 
END; 
LongPut (f, Sdata, Count * 2); (* S-record Code/Data *) 
Complement; (* CheckSum *) 
LongPut (f, CheckSum, 2); 


Write (f, ASCII.cr); 
Write (f, ASCII.1f£); 


Longinc (StartAddr, Count); 
Sindex := SrecMAX; ; 
Count := 0; 
Boundary := FALSE; 
CheckSum := LZero; 

END DumpSdata; 


(* S-record data, HEX digits *) 


(* adjust short record -- shuffle down *) 


PROCEDURE GetXdata; 
(* Transfer Xdata into new Sdata line -- N.B.: Xdata stored in reverse *) 


VAR 


i 
7 


CARDINAL; 
LONG; 


BEGIN 
Late ds 
T := LZero; 


{* No need for either of the tests (CountMAX or Boundary) *) 


(* used in AppendSdata. GetXdata is only ever called a 
(* after DumpSdata and is therefore only putting (up to 20) *) 
(* HEX digits in an empty buffer (which could hold 32). *) 


WHILE i < Xindex DO 


END 


PROCED 
(* Wri 


VAR 


BEG 


Sdata[Sindex] := Xdata[i]; 
Sdata[Sindex - 1] := Xdata[i + 1]; 
T[2] := Sdata[Sindex]; T([1] := Sdata[Sindex - 1]; 
LongAdd (T, CheckSum, CheckSum) ; 
ING. (15-2) 3 
DEC (Sindex, 2); 
INC (Count); 
Longinc (TempAddr, 1); 
END; 


Xindex := 0; 
Get Xdata; 


URE StartSrec (f : FILE; SourceFN : ARRAY OF CHAR); 


tes SO record (HEADER) and initializes *) 
T : LONG; (* temporary *) 

i : CARDINAL; 

IN 

Write (f, 


S'); 
Write (f, '0’); 


CheckSum := LZero; 

Count := Length (SourceFN) + 3; 
CardToLong (Count, T); 
Longeut:..({f, Ty 2} 

LongAdd (T, CheckSum, CheckSum); 


(* extra for Address & Checksum *) 


LongPut (f, LZero, 4); (* Address is 4 digit, all zero, for SO *) 
L308 
WHILE SourceFN[i] # OC DO 
CardToLong (ORD (SourceFN[i])}, T); 
LongAdd (T, CheckSum, CheckSum); 
LongPut (f, T, 2); 
INC (i); 
END; 


Complement; (* CheckSum *) 
LongPut (f, CheckSum, 2); 


Write (f, ASCII.cr); 
Write (f, ASCII.1£); 


Sindex := SrecMAX; 
Xindex := 0; 

Count := 0; 
Boundary := FALSE; 
CheckSum := LZero; 
StartAddr := LZero; 
TempAddr := LZero; 


END StartSrec; 


PROCEDURE WriteSrecLine (f : FILE; 


AddrCnt, ObjOp, ObjSrc, ObjDest : LONG; 
nA, no, ns, nD : CARDINAL) ; 


(* Collects Object Code -- Writes an S2 record to file if line is full *) 


VAR 


dummy : BOOLEAN; 


BEGIN 


IF nA = 0 THEN 
RETURN; (* Nothing to add to S-record *) 
END; 


IF Xindex # 0 THEN 
Get Xdata; (* transfers Xdata into Sdata *} 
END; 


IF LongCompare (AddrCnt, TempAddr) # 0 THEN 
DumpSdata (f); 
END; 


IF Count = O THEN 
StartAddr := AddrCnt; 
TempAddr := AddrCnt; 

END; 


dummy := AppendSdata (Ob4jOp, nO); 

dummy := AppendSdata (ObjSrc, nS); 

IF NOT AppendSdata (Ob jDest, nD) THEN 
DumpSdata (f); 

END; 


END WriteSrecLine; 


PROCEDURE EndSrec (f : FILE); 
(* Finishes off any left-over (Partial) S2 line, *) 


(* and then writes $8 record (TRAILER) *) 
BEGIN 
IF Xindex # 0 THEN 
GetXdata; 
END; 





DumpSdata (f); 


Write (f, 'S"); 
Write (f, '8’ 
Write (f, '0° 
Write (f, '4' 
Write (£,  *0* 
Write (f, '0Q’ 
Write (f, "0" 


(* Fixed format for S8 record *) 


a ee ee ee ee ee 
Se Se Fe Se Se Se 


(continued on page 62) 
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PROBLEM: The more experience your hard disk has, 
the harder it has to work. 


THE SOFTLOGIC SOLUTION: Disk Optimizer” 


Your hard disk will run faster when it’s 
not chasing around after files. 


Remember the old days when your hard 
drive was new? Remember that smooth, fast, 
slick performance? Those quick retrievals, 
rapid saves, lightning-like database sorts? 

Well ever since, DOS has been doing its 
best to slow your hard drive down. Not 
by slowing down the motor, but by 
breaking your files up into pieces. 
Storing different chunks in different 
places. Data files, programs, over- 
lays and batches that started out 
in one seamless piece are now 
scattered all over. 

Loading is slower. 
Sorting is slower. 
Retrieving, backing-up. 
Everything takes longer because 
your disk has to work harder. 

Problem is, it’s something that happens so 
gradually you may not notice the difference. 
At least, not until you see the dramatic 
improvement after using Disk Optimizer. 


100% 50% 0% 


File fragmentation—It’s a problem 
you can see. 


Watch your hard drive the next time it 
reads or writes a file. Each “blip” of the LED 
means the drive-head is moving to another 
place on the disk—either to pick up or lay 
down another chunk of data. 

And the truth is, head movement takes 
time. Far more time than actual reading and 
writing. What’s worse, all this head move- 
ment causes extra wear and tear that can 
shorten the life of your drive. 


Disk Optimizer—Tunes up your disk 
by cleaning up your files. 


Disk Optimizer works by finding all the 
scattéred pieces of your files and putting them 


Circle no. 163 on reader service card. 















100 
sec 


RETRIEVAL 


PERCENT FRAGMENTATION 


The more fragmented your files get, the longer 
they take to retrieve. 


back together where they belong. Next time 
your drive reads it, there’s just one place 

to look. 

And the results are often 

dramatic. Reading and writing 
times may be cut by as much as 
two thirds. Database sorts that 
used to take hundreds of head 
moves now proceed quickly and 
efficiently. And since head move- 
ment is now at an absolute mini- 
20) mum, your disk drive will lead 


a longer, more productive life. 
Analyze, scrutinize, optimize. 


Before you optimize, you'll probably 
want to analyze. So Disk Optimizer 
shows you, in percentages, how much 
fragmentation has taken place—on the 
entire disk, in individual 
directories, or for groups of 
files you specify using global 
or wildcard names. 

Plus, there's built-in data 
security that lets you assign 
passwords to as many files or 





Name 
file groups as you want. 
And the File Peeker gives Company 
you an inside look at the Address 
structure of files. It’s a great City 


own your hard drive, the more you come to 
depend on it. But the longer you wait to get 
Disk Optimizer, the less performance you'll 
have. 

And the less chance you'll have to buy Disk 
Optimizer at the special introductory price of 
just $49.95* 

That’s a small price to pay to get back the 
speed you depend on. But it’s a price that 
wont last long. 

Ask for Disk Optimizer at your computer 
dealer. 

Or order today by calling SoftLogic 
Solutions at 800-272-9900 (603-627-9900 in 
NH), or send the coupon below. 

Special combination pricing is available 
when you buy Disk Optimizer along with 
other SoftLogic products like DoubleDOS, 
Software Carousel and Cubit. 

Ask for details. 


yDisk Optimizer °49° 


YES! Please send me______ 


copies of Disk Optimizer 


at this special introductory price. 














way for non-programmers to 
learn more about computers, 
and a powerful tool for 


Card # 


Check Enclosed 1 VISA LI MCU) AMEX L] 








analyze the contents of their 


Signature 


Exp. Date 











| 
| 
| 
| 
State/Zip | 
| 
| 
| 


disks. SoftLogic Solutions, Inc. 
530 Chestnut Street SOFTLOGIC 
Get your hard drive back Manchester, NH 03101 
in shape—at a special 800-272-9900 SOLUTION SOLUTIONS 
low price. (603-627-9900 in NH) 


professionals who want to | 


When you think about it, 
it’s simple. The longer you 


Call today:800-272- 9900! 


*plus $5.00 shipping and — 
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Listing Twenly (isting continued) 


POs 
Ny as 
"0'); 
2} 
'C'); 
ASCII .cr); 
ASCITSLE)'? 
ASCII.cr); 
ASCIT.1If};? 


Write 
Write 
Write 
Write 
Write 
Write 
Write 
Write 
Write 
END EndSrec; 


BEGIN (* Initialization *) 
LongClear (LZero); 
END Srecord. 


End Listing Twenty 


Listing Twenty-One 


IMPLEMENTATION MODULE ErrorX68; 
(* Displays error messages for X68000 cross assembler *) 


FROM Terminal IMPORT 
WriteString, WriteLn; 
IMPORT Terminal; (* for Read/Write *) 
FROM Files IMPORT 
FILE; 
IMPORT Files; (* for Write *} 


FROM Strings IMPORT 
Length; 


FROM Conversions IMPORT 
CardToStr; 


IMPORT ASCII; 


FROM Parser IMPORT 
Line, LineCount; 


(*--- 
TYPE 
ErrorType = (Dummy, TooLong, NoCode, SymDup, Undef, SymFull, Phase, 
ModeErr, OperErr, BraErr, AddrErr, SizeErr, EndErr); 


VAR 


ErrorCount : CARDINAL; 


—--—*) 


VAR 


FirstTime : BOOLEAN; 


PROCEDURE FileWriteString (f : FILE; VAR Str : ARRAY OF CHAR); 
VAR 
i : CARDINAL; 
BEGIN 
i := 0; 
WHILE Str[i] # OC DO 
Files.Write (f, Str[i]); 
INC (i); 
END; 
END FileWriteString; 


PROCEDURE Error (Pos : CARDINAL; ErrorNbr : ErrorType); 
(* Displays Error #ErrorNbr, then waits for any key to continue *) 


CARDINAL; 


ARRAY [0..6] OF CHAR; 
BOOLEAN; 


BEGIN 
WriteLn; 
dummy := CardToStr (LineCount, 
WriteString (CntStr); 
WriteString (" ") 2 
WriteString (Line); 


CntStr); 


WriteLn; 


(* Make up for LineCnt so * in right spot *) 

FOR i := 1 TO Length (CntStr) DO 
Terminal.Write (' '); 

END; 

WriteString (" 


he 


IF Pos > O THEN 


FOR i := 1 TO Pos DO 
Terminal.Write (' '); 
END; 
Terminal.Write ('*'); WriteLn; 
END; 
CASE ErrorNbr OF 
TooLong : WriteString ("Identifier too long -- Truncated!™"™); 
| NoCode : WriteString ("No such op-code."); 
| SymDup : WriteString ("Duplicate Symbol."); 
| Undef : WriteString ("Undefined Symbol."); 
| SymFull : WriteString ("Symbol Table Full -- Maximum = 500!"); 
WriteLn; 
WriteString ("Program Terminated."); WriteLn; 
HALT; 
| Phase : WriteString ("Pass 1/Pass 2 Address Count Mis-—Match."); 
| ModeErr : WriteString ("This addressing mode not allowed here."); 
| OperErr : WriteString ("Error in operand format."); 
| BraErr : WriteString ("Error in relative branch."); 
| AddrErr : WriteString ("Address mode error."”); 
| SizeErr : WriteString ("Operand size error."); 
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PROCEDURE WriteErrorCount (f : 


| EndErr : WriteString ("Missing END Pseudo-Op."); 
ELSE 
WriteString ("Unknown Error."”); 
END; 
WriteLn; 


IF FirstTime THEN 
WriteString ("Hit any key to continue.... 
Terminal.Read (c); 


")? 


WriteLn; 

FirstTime := FALSE; 
ELSE 

Terminal.Read (c); 
END; 


INC (ErrorCount) ; 
IF ErrorCount > 500 THEN 
WriteString ("Too many errors!"); 
WriteString ("Program Terminated."); 
HALT; 
END; 
END Error; 


WriteLn; 
WriteLn; 


FILE); 


(* Error count output to Console & Listing file *) 


VAR 

CntStr : ARRAY [0..6] OF CHAR; 

MsgO : ARRAY [0..25] OF CHAR; 
Msgl : ARRAY [0..10] OF CHAR; 
Msg2 : ARRAY [0..20] OF CHAR; 
dummy : BOOLEAN; 

BEGIN 
MsgO := "---> END OF ASSEMBLY"; 
Magi s= 7=——> — 
Msg2 := " ASSEMBLY ERROR(S)."; 


dummy := CardToStr (ErrorCount, CntStr); 
(* Messages to console *) 

WriteLn; 
WriteLn; 
WriteString 
WriteString 
WriteString 
WriteString 
WriteLn; 


(Msg0O) ; WriteLn; 
(Msg1l); 
(CntStr); 


(Msg2) ; 


(* Messages 
Files.Write 
Files.Write 
Files.Write 
Files.Write 


to listing file *) 
(f, ASCII.cr); 
(f, ASCII.1f£); 
(£, ASCII.cr); 
(f. ASCITE.1F) 2 


FileWriteString 
Files.Write (f, 
Files.Write (f, 


(f, Msg0); 
ASCII.cr); 
ASCII.1f£); 


FileWriteString 
FileWriteString 
FileWriteString 
Files.Write (f, 
Files.Write (f, 


(f£, Msgl); 
{f, CntsStr); 
(£, Msg2); 
ASCII.cr); 
ASCII.1£); 


Files.Write (f, ASCII.ff); 
END WriteErrorCount; 


(* feed up next page *) 


BEGIN (* MODULE Initialization *) 
FirstTime := TRUE; 
ErrorCount := 0; 

END Errorx6é8. 


End Listings 
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Lattice is a famous 
name in the world of 
high quality programmer's 
tools. As an authorized distribu- 
tor of Lattice products, we at 
Programmer’s Connection are pleased 
to be your source for their complete line | 
of IBM Personal Computer software. All 
of these products come with full manufac- 
turer’s support directly from Lattice, Incorporated. 


LIST OURS 
, 500 299 
>Lattice C Compiler with Library Source Code 900 549 
Popular, industry standard C compiler that features fast compilation, efficient code 
generation, support for 80186/286 instructions and inline support of 8087/287 
instructions. The latest version now supports void, enum, unsigned as a modifier 
and function prototype checking. The library contains more than 325 functions 
compatible with UNIX, XENIX and the proposed ANSI standard, plus extensive 
support for MS-DOS versions 2.+ and 3.+. Other useful Lattice C features include 
support for nested comments, extended symbol length and multiple memory 
models. It comes with an object module disassembler, a function extract utility, a 
full set of libraries for each supported memory model, sample programs and 
extensive documentation. Requires 128K memory. 





Binary 150 99 
>The C-Food Smorgasbord with Source Code 300 195 


General C function library featuring BCD (binary coded decimal) arithmetic, level 0 
1/O, BIOS interface, terminal independence, directory, clock, string and other 
miscellaneous functions. No royalties. For use with Lattice C. 


»>C-SPRITE 175 139 


Program debugger with source level support for Lattice C that includes help 
screens, macros, command files, conditional commands, debugging through a 
COM port and support for Plink86 overlays. The source mode supports all 
debugging functions including disassemble, single-step and breakpoints. The 
data types of symbols may be completely specified so that variables can be 
properly displayed. There is also complete assembly language support providing 
direct access to machine addresses and instructions. Requires 256K memory. 
Specify C compiler: Lattice or Microsoft. 










Binary 125 99 
Curses Screen Manager with Source Code 250 199 


Library of C screen interface functions compatible with curses packages on UNIX 
systems. You can keep and update any number of full or partial virtual screen 
images in memory and display them as needed. Functions are provided to write 
text to virtual screens, move the cursors, scroll the screens, overlay screens, 
outline, insert, delete, clear and highlight. No royalties. For use with Lattice C. 





Binary 250 199 
with Source Code 500 395 


Complete C library of ISAM file management functions for creating and manipu- 
lating dBase compatible files. You can easily add, update, delete, retrieve and 
organize records and indexes in dBase format. Up to eight data and eight index 
files may be opened and processed simultaneously. Specify dBC ll for dBase II 
type files or dBC Ill for dBase Ill type files. No royalties. Requires 128K memory. 
Specify C compiler: Lattice, Microsoft, Computer Innovations or DeSmet. 


LMK Make Utility 195 149 


Programming utility to rebuild programs after changes have been made to source 
files. First, you create a text file consisting of macro definitions, dependency 
descriptions and executable commands. Then, whenever you make changes to 
your program, LMK determines which source files need to be recompiled and 
automatically creates the new program. Requires 128K memory and may be used 
with any compiler or assembler. 


LSE Screen Editor 125 9 


Multi-window programmer's editor with block moves, pattern searching and “cut 
and paste.” You can remap any of LSE’s 48 keystrokes to suit your own 
preferences and define your own keyboard macros and default file extensions. 
The menus, prompts and help messages used in the system can all be customized. 
Special features include a Lattice C error tracking mode and three assembly 
language input modes. Requires 128K memory. 
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RPG Ii Compiler 750 595 


PG Il compiler for MS-DOS that is compatible with IBM System Ill, System/34 and 

System/36 RPG II compilers. Special PC extensions include support for standard 
MS-DOS files, keyboard, function keys and string handling. ISAM files are 
compatible with dBC Ill and dBase Ill files. Requires 192K memory. 


SecretDisk 60 49 


File security utility for providing complete security for sensitive information on a 
floppy or hard disk system. You can use either the international Data Encryption 
Standard (DES) or Lattice’s own Fast encryption algorithm for higher speed 
operation. It’s loaded as a DOS device driver and creates new logical DOS drives 
where all files are fully encrypted. A password is entered when the system is 
booted and protection can be switched on and off with a single password 
controlled command line. Without the password, there is no known way to access 
the encrypted files! Multiple protected areas may be created using different 
passwords and data backup may be made in either encrypted or unencrypted 
mode. It does not interfere with normal access to the computer system or to files 
that are not encrypted. 


SideTalk 120 95 


Pop-up telecommunications package that can be accessed from inside any 
application with a single keystroke. It incorporates the SideTalk Communications 
Language (SCL) consisting of BASIC-like commands that allow you to create your 
own communications processing system. It provides for multitasking (background) 
operation, file transfer capabilities, text transfer from background to foreground 
and DOS commands available in background. Requires less than 64K available 
memory. 





>Text Management Utilities 120 95 


includes four text management utilities found under UNIX. The first utility is grep 
(global regular expression search and print). You provide it with a pattern to find 
and it displays each line containing that pattern with its line number in that file. In 
addition, these functions are provided as Lattice C object libraries. The second 
utility is DIFF, a differential file comparator. It compares two files and determines 
how they differ from one another. The third utility is ED, a line editor and the fourth 
utility is WC, a simple word count facility for counting the number of characters, 
words and lines in a file. Requires 128K memory. 


E Binary 250 199 
»>TopView Toolbasket with Source Code 500 395 


Library of C functions for simplifying programming in IBM’s TopView environment. 
It gives you easy access to TopView’s window, cursor, pointer facilities, cut-and- 
paste services and printer control services. It deals with TopView objects through 
a central dispatching function that can be tailored to your application. Includes 
excellent error checking and debugging support. Requires 256K memory (512K 
recommended). For use with Lattice C. 

















CALL TOLL FF 
Ss00-33G6-l1iI6G 
U.S. OHIO 216-877-3781 
S00-225.1116G 
TmPprogrammers 
uconnection 
Lattice is a trademark of Lattice, Incorporated. 


Turn the page for a wide selection of programmer’s development tools exclusively for IBM Personal Computers and compatibles. 


Circle no. 129 on reader service card. 


PROGRAMMER DEVELOPMENT TOOLS FOR THE IBM-PC/XT/AT 


and compatibles. 


Shipping Charge* 
Handling Charge 
Insurance Charge 


C.0O.D. Charge 





Hidden Charges 
Risk Guarantee 


* When shipping via standard United Parcel Service. 


Credit Card Charge 


Purchase Order Charge 





ap! language LIST OURS 

APL*PLUS/PC System by SISO oo eens cals oes 595 449 
APL*PLUS/FC Tools Vol.1 by STSC* oo. eee ek 295 239 
APL*PLUS/PC Tools Vol 2 by STSC ..................... 150 129 
APL*PLUS/UNX System by STSC ............ For AT Xenix 995 795 
Btrieve /SAM File Mgr by SoftCraft .............. New version 250 #195 
Financial/Statistical Library by STSC .................... 275 219 
FRESCO Business Graphics System by Mr. APL .............. 300 269 
PONT RE PEO in ici 6 hon os tcabs tvaeekel edacesaes 95 79 
SIMIGRAPHICS by STSC. oo vee. is Saeko cos wv ee es 695 539 

artificial intelligence 
ExperiEASE by Human Edge: .... 006. ..... avs ieiese New 695 589 
ExpertEDGE by Human Edge ...3.. cic. cece cee oe New 795 659 
Experteach by Intelliware ................ Complete System 475 389 
EXSYS Expert System Development Software ...........e0eeeee 395 339 
GCLISP Golden Common LISP by Gold Hill ......... All models CALL CALL 
Insight | by Level Five Research ................. Al Primer 95 75 
Insight Il by Level Five Research ................00.0 eee 485 389 
Rey NICIOSON 0.0 vss pees as oe bees New Common Lisp 250 °# 189 
Methods Smalitalk-based Prototyping by Digitalk ............. 250 209 
MicroProlog by Programming Logic Associates ...... New 250 219 
WERE See 8 whe 8g Ose BERS OL RSL Seb Da wake 425 369 
Professional MicroProlog by Programming Logic ..... New 395 #349 
WN I en ey ie Seta re ee eee ah abate 650 569 
Prolog-86 from Solution Systems .....................05- 125 CALL 
Prolog-86 Plus from Solution Systems ............... New 250 CALL 
QNIAL by NIAL Systems ............ 0.0... cc eee eee New 375 #359 
DY MOEN os oe Ce oe iw a pa be Ba ee owas 125 99 
TransLiSP from Solution Systems ................... New 75 CALL 
Turbo Prolog Compiler by Borland International ...... New 100 CALL 
assemblers and debuggers 
8088 Assembler w/Z-80 Translator by 2500 AD ............. 100 89 
Advanced Trace-86 by Morgan ......... with ASM Interpreter 175 139 
Codesmith-86 Debugger by Visual Age .................... 145 109 
Cross Assemblers from 2500AD ........... Over 25 varieties CALL CALL 
Microsoft Macro Assembler with utilities .................. 150 99 
Periscope | Debugger by Data Base Decisions ............. 295 249 
Periscope Il by Data Base Decisions ..................... 145-145 
The PROFILER by DWB Associates ......... Includes source 125 95 
Turbo EDITASM Fast Assembler by Speedware ............... 99 84 
Visible Computer: 8088 by Software Masters .............. 80 65 
basic language 
BetterBASIC by Summit Software ... Now BASICA Compatible 200 165 
Due NAMI OI Sch 5s te ae ie et ee a foes 99 85 
Btrieve Intetiace: occ es ee Used with Btrieve 99 85 
eM HOCGS ie is es on ae ewe ca Ww nea cies New CALL CALL 
ERUPYETHT I SUN ss ae a A nk wh 250 225 
Microsoft QuickBASIC Compiler ........ BASICA Compatible 99 79 
Professional BASIC by Morgan ..................0000005. 99 79 
CRIs: IS) OTE es eae. Pa casks ee aS se ce vee ka. 50 47 
True Basic from Addison-Wesley ...................eeee. 150 105 
PUTTERS MOGING oe ace 555 < vw ka ca Haw iad A 500 435 
blaise products 
Asynch Manager for C or Pascal ... 0... ee eee cece e ce eeee 175 139 
FO is fi eR Poe eh eee SG ORM RES B05 dae 125 105 
SE EGOE 6.156.500 Big cabetw i hig a Lanes OE a 100 84 
Combination package. 3.2. Si ees ee Special Price 175 149 
NOG Hronramn Chaier-.3% ¢ 655 Se aS Fe nt a he 95 79 
PASO TOG i. oes ov Gesavels Lined tae Hoa eaeieed Bus 125 105 
SEW MT PONE oa po oo 6 Raa sg SAS ae ks ee EO 100 84 
Turbo ASYNCH for Turbo Pascal ..........ccccccccccccccce 100 84 
Turbo POWER TOOLS for Turbo Pascal ............-0000. 100 84 
View Manager for C or Pascal .... 2... occ cece ccc sees 275 209 
with Source Code. o.32 fi ees wk Special Price 295 239 
borland products 

RGEPLEX Data Base System =o s5 8 sn ho, cok ek New 99 75 
Turbo DATABASE TOOLBOX .....................00005. 55 38 
TV RU EM FOLK od 8 Ss ices Sue si One es 70 54 
Turbo GAMEWORKS TOOLBOX ........................ 70 54 
FUrb@ GHRAPHIX TOOLBOK 2 ee Se 55 38 
PURO LI HING oes a TS Ss re ee 99 75 
TURD PF iil Sg SL cee ee et yt ne 70 49 
witht S087 OF BGO: a. oe. ee ks re 110 77 
WHE Bet Te ea os ate ea eee ie Be 125 84 
Eee -Proleg CGmpner oo ee ea ee New 100 CALL 
Taf VAFEOR for: Turbo PASCAL et oes oe 35 28 


C-86 Compiler ............. See Computer Innovations Section 
Datalight C Compiler with large memory model ........... New 
DeSmet C Compiler w/Source Debugger ..............0.000 
Eco-C Complete Development System by Ecosoft ............. 


Lattice C with Free SecretDisk .............. 
Let’s C Compiler by Mark Williams ....................45. 

with csd Source Level Debugger 
MWC-86 by Mark Williams ................... Special Price 
Microsoft C Compiler with source debugger. ...... New version 
Wizard C by Wizard Systems ................. Includes lint 


c interpreters 
C-terp by Gimpel Software ......... Specify compiler interface 
WiGGRNEE. DY GONG! SYSICINS 5. dew. oi we pe db slee oie e oe o 
Interactive C by IMPACC Associates ................ 
Run/C from Lifeboat 


eee ee wee eee ewww wee ewes 


ec utilities 


395 

99 
159 
125 
500 

75 
150 
495 
495 
450 


300 
500 
249 
150 
250 


Please refer to the following sections for additional products: 
Computer Innovations, Lattice, Microsoft, Phoenix, Polytron, SoftCraft and 


Xenix System V. 


Application Programmer’s Toolkit by Shaw American ...... 
Basic® Library by .C Source: 3) eos es eed 
C Essentials by Essential Software .................. 
C-lib by vance info systems 
C Power Packs by Software Horizons .................... 
CONROY F OISON os cite See Suet bees 
C Utility Library by Essential Software .................... 
C Windows by Syscom 
Me EY: AV OCONN facie wo nkew, ose Bm aks Sees aeo ke oes 
dbVISTA Single-User DBMS by Raima ..................005. 
Woes NAT eae RE” ok oak Sl ak ald aw rcnecea wate enines 
dbVISTA Multi-User DBMS by Raima ..................0005. 
WEN OS SING ics ool Vict ER ois ao lee A ee bin a ete 
Entelekon C Function Library 
SsPHINOOED Gs WECIOWS ooo Uae od vic Caos haere ab aw ts Varese 
Entelekon Superfonts for C 
Entelekon Combination Package ........................ 
Essential Graphics by Essential Software. No royalties 
Flash-up Windows by Software Bottling of NY ............. 
GraphiC by Scientific Endeavors ........... Mono version 2.2 
GraphiC by Scientific Endeavors ........... Color version 3.0 
The Greenleaf Functions by Greenleaf Software ........... 
Greenleaf Comm Library by Greenleaf Software ........... 
The HAMMER by OES Systems... 03. ec eevee 
MALS. Dy CVOeSt SOIUNONS. <6 5c oki pe eos wel es 
MetaWINDOWS by Metagraphics .....................05. 
MetaWINDOWS/Plus by Metagraphics .............. 
Multi-Halo by Media Cybernetics 
On-line Help from Opt-Tech Data ...................0000. 
PARE. DY: HOUNGAHT wo oy. sive de tes ec Library Source Available 
EC tint by. Gimpel Software | oo so eee iw ceaele lee ce 
Scientific Subroutine Library for C by Peerless ............ 
Vitamin C by Creative Programming ...................00. 
VC Screen Forms Designer .............. Requires Vitamin C 


Zview by Data Management Consultants ................. 


cobol language 
Micro Focus COBOL Workbench ............... 0... ceecs 
MiIGIG FOCUS Lavel fF GOGOL - <6 2b on a ak oe Sas er 
RN Pd e's lb ok whe ad ae Foie a ee eek 
PRMRUINEEDIEE (6 hock 2 tout © ho a ad ae ws ga te aaa as oe 
Soe TEE peo, sc eas os PHAR en UK ele he a a 
LPWIN TP UuerP UP 5 5 as oo es a en ek oa be 
Level ti SOURCEWRITER 2 5 5. cin SS ok oe fis bie 
WIGTO FOGG MHOIOF ORE cb oak bes cb Pk Fok 
Micro Focus Professional COBOL ....................... 
MiGrason GOBOL  -. 2.6 id 62S. See Microsoft Section 


0028. e e690 +0 8 68 wee @ Big 04s O46 > 00S © 22 


a. 0-0! 0.6 Sie 6.648, SE C'S C'S e 6 0.107% © SS ED © S 5 O08 


©.e 0 ,6.658 6-0 610.5 6 52 @ 83" e 6S @ 107 x8: 2S. 6 


© 8 69.6, 62 OS Ob Oe -C'0, 6 0, OG 8G eS 4-2- F @ Be 6 


pet ee hg, ee aS ee een ees New 
RM/COBOL by Ryan-McFarland ........................ 
RM/COBOL 8X ANSI 85 COBOL by Ryan-McFarland ... New 


C-86 Optimizing Compiler 
Se ts SN ESS ook bic wi PR 
Cl Probe Source Level Debugger ...........0.ccceccceccceee 
ie er MCN I0KC-O8 6. okies dics oe © 
Pe en Se fo So ew ei es SES SHEE C Interpreter 


fortran language 
ACS Time Series by Alpha Computer Service ............. 
Btrieve /SAM File Mgr See SoftCraft Section 
For-Winds by Alpha Computer Service ................... 
Forlib-Plus by Alpha Computer Service ................... 
MRUTORONEPONWAN |. 6.25 6 ik cp Sc inke Links with Microsoft C 


CES 9S EG. 8i OO CEO. 6 aS Bs} Bi S760 bse 10-0 be 78:6 


£58 'S 36 8) C8 eee ee 8° 6 oP a 


MORE FORTRAN by Peerless Engineering ........... New 
Multi-Halo by Media Cybernetics ................ Royalties 
PANEL Screen Designer by Roundhill ...................... 
PC Fortran Tools by Stat Com Systems .............. New 


Poyrortan Tools by Polytron <>: 3. cs es 
RM/Fortran by Ryan-McFarland 
Scientific Subroutine Library by Peerless ................. 
Scientific Subroutine Package by Alpha Computer ........ 
The Statistician by Alpha Computer Service ............... 
Strings & Things by Alpha Computer Service 


8 2188S 9 es. «ke oe. é S's Use ele es Bus 


Circle no. 129 on reader service card. 


280 
350 
185 


950 


1250 
computer innovations products 


395 
150 
225 
195 
125 


495 
90 
70 

350 

125 

300 

295 

179 

179 

595 

TS 

295 

295 


289 
79 
145 
CALL 
299 
69 
129 
289 
CALL 
369 


239 
379 
219 

99 
189 


Blaise, 


339 
135 
85 
125 
CALL 
329 
139 
89 
45 
159 
429 
429 
849 
115 
115 
45 
175 
219 
69 
219 
299 
135 
135 
175 
79 
139 
199 
219 
119 
229 
109 
139 
139 
85 


199 


3599 
CALL 
169 
269 
995 
659 
1689 
159 
2395 
495 
795 
675 
995 


289 
139 
199 
149 
105 


= 


lattice products softcraft products (6/86) 








Refer to our feature page preceding this spread for more information. LIST OURS Btrieve ISAM File Mgr with no Royalties ............ New version 250 195 
Pag cl s.5 8s: veass cteeem es 500 299 Me aimee ae oe ee 
with Library Source Code ......... 6... cece eee cee ees 900 549 Rtrieve/N R OY yee. bot), rR ae als 
eport Generator for Xtrieve/N «1... eee eee eee eee +75 159 
C Cross Reference OO Oa ne res go nt woe 50 39 Xtrieve Query Utility for Btrieve 195 169 
with Source Code Se, tee MS wing Sta Bi ara) W) eumre le, espe sO) er nce le New 200 159 Xtrieve/N Aa ae for Birlova/M Ts iy be a 395 299 
C-Food Smorgasbord Function Library ...........--+-+-00es 150 99 OPT-Tech eat ie uk Hidede File. asctce Mewhore 449 
er A Nah.) = ey is op Bask ope pe org ete eke hws Pepi 300 195 LU cieks eae EAS uo ae 
C-Sprite Source:Level Debugger... ... 6.26... s ccc cee ee eeeceee 175 139 text editors 
DP PRBRIGE Gef WaOGGr ooo. ans even ns oleae sec eesdes 425 99 eee ae ao Suet it, sly 4a.o +46 Dee eas Oob tas 195 CALL 
IT CCIE Ane = oon g ceed ae es Wh wae how vee oie gs 250 199 psilon by Lugaru .......... 2. eee ee ee ee eee New version 195 165 
GEG Rape Te nde IOFG.. bn Si ee ce ocr eae ot 250 £199 FirsTime for Turbo by Spruce Technology ........-..-..-. 79 69 
MN I i oo. CE vs Sapa er nee ses soon ees dale 500 395 KEDIT by Mansfield Software Group .........-.. Like Xedit 125 109 
OR hari Fifi os re i cs vs a ding wg vin shiw oin'n wa op 195 149 SPF/PC by Command Technology Corp .......-..-.+++++ 195 165 
eee mea a el tc. . dis a capa. cece’ baa taee New 125 99 Vedit by CompuView ..... 1... ee cece eee eter teen ee es 1903 “ARTS 
Pe RE ao joins a bh bo purscesle ap Se aes e CUE 750 595 Vedit Plus by CompuView .......... 6... 0s cece eee eee ees 125 180 
Meratiah FIG SACITIAY.§ 6 ues cc bss ose wines Se Deus eed De gsie 60 49 XTC Text Editorby Wendin ...........-.-.-. Includes source 99 84 
SideTalk Resident Communications .........0. eee eee e eee 120 95 turbo pascal util ities 
Text Mgmt Utilities (GREP/DIFF/ED/WC/Extract/Build) ........ 120 95 Please refer to the following een additional products: 
OPE eee POCO LIBTAIY dns oa. 0 ain't s gains eee’ Se eas Blaise, Borland and SoftCraft. 
7-80 C Cross Compiler Re ee ee ae dee New 500: - 395 ALICE by Software Channels ......... New Pascal Interpreter 95 85 
with Library Source Cia ee 1000 789 FirsTime for Turbo by Spruce FEchnolwogye 6k FEE. oe ayes 75 69 
een ian ex ocriitaiaied re oak Beads cc 75 69 
microsoft products ulti-Halo Graphics by Media Cybernetics ......... Royalties 250 CALL 
Microsoft BASIC Interpreter for Xenix .. 0... 0... ee eee eee 350 279 ae oor rol SE oon ae tN eh, RS Hs 13° 
Microsoft C Compiler with source debugger. ...... New version 495 CALL Turbo EXTENDER b 7 yer . ns e ee ald: bs gh ae ee 35 
Microsoft COBOL Compiler ..............-.--0e-0eeeeee 700 495 I Se ee eee os Hees; ae eae 
: : : urbo Professional by Sunny Hill Software ................ 70 49 
Microsoft COBOL Compiler for Xenix ..............0620 205 995 795 TurboRef by Gracon Servi 0 
Microsoft COBOL Tools ....... with COBOL Source Debugger 350 209 I eer nea ht Reis oe eae 
; . urboPower Utilities by TurboPower Software ............ 95 84 
Microson COBOL TOG for XOniX oo... se ee wesc sew eseeee 450 359 TurboWINDOW by MetaG hi 
ere ea, eee We Plater sae Links with Microsoft C 350 209 XTC Text Editor by ecrcain ee St ae ee a - 
icrosoft Fortran Compiler for Xenix ......... 0... eee eee 495 389 tis Bk Ae ec ah i eee) ee a eee ial 
WROGOTE EIT Eo Sis ie ww oe ng view dene New Common Lisp 250 189 video training tapes 
Microsoft Macro Assembler with utilities ................... 150 99 These video cassette training tapes are from the Information Factory and are an excellent 
Microsoft Mouse Bus Version ...........0ee cece eeeeees New 175 149 alternative to expensive classroom training. Specify Beta or VHS. Price includes one student 
Microsoft Mouse Serial Version .........cec cee cee eens New 195 159 manual. Call for more information. 
WIG TE SII sw ee hs ee ee eee eee Includes muSIMP_ — 300 195 ‘ 
Microsoft Pascal Compiler ............ Links with MicrosoftC 300 195 ee ‘Maer eet tere UA Sah re © oe me eat 
Microsoft Pascal Compiler for Xenix ............-6 00s eee 495 389 ; ieee Sere ate e Race si 
Minvokae Shel 4S: 195 149 Programmer’s Introduction toC ................++5. New 500 CALL 
Microsoft QuickBASIC NE Gilt. . or per bae rsh 99 79 wendin products . 
Microsoft Windows .......... bE avis TA eee eau A 99 74 Operating System TOGMOK ... 0.6. 5. Build your own OS 99 84 
modula-2 language PCUNIX Operating System ........... cece wees cee creneneees 99 84 
‘ PCVMS Operating System ............555- Similar to VAX/VMS 99 84 
ee ana 86 Compiler by Logitech ...........----+.++, 1 re Rilke POM POMS. Say nn PS Pgn kent Includes Pascal source code 99 84 
to i a ed SENS TS OPES | xenix system v by sco 
MODULA-2 Editor by Logitech ...... ein Gh vevibe den ha SS a0 8 59 49 Xenix Development System ..............-- ear XTorAT 595 529 
MODULA-2 Runtime Debugger by Logitech .............. 69 59 Xenix Operating System .............----- SpecifyXTorAT 595 529 
MODULA-2 Source Package by Logitech ................. 116° Ts Xenix Text Processing Package .........-- Specify XTorAT 195 179 
MODULA-2 Utilities Package by Logitech ................ 49 45 Complete Xenix System ...........------- SpecifyXTorAT 1295 1099 
a other products xenix languages and utilities 
Dan Bricklin’s Demo Program by Software Garden ... New 75 65 APL*PLUS/UNX System by STSC ..........-- For AT Xenix 995 795 
FASTBACK Backup Utility by 5th Generation Systems .. New 179 159 Btrieve ISAM File Manager by SoftCraft ............5++ eee: 595 465 
Interactive EASYFLOW by Haventree Software ....... New 150 129 c-tree by FairCom ............--+06: Includes C sourcecode 395 329 
Janus/ADA C Pack by R&R Software ...............5+55- 95 89 infoeniix by SCO: oo. ee 6 es wee oe tees oe oe og teat 995 839 
ee ee by Bs OWI | io voce 36 Cnt ones 900 699 Satie By SCO o5 oc Feces on sa ee eed nntat sty Oey seen Fee 595 489 
oO y Laboratory Microsystems ..............+-++: 150 119 Microsoft Languages .............---- See Microsoft Section - . 
PC/Forth+ by Laboratory Microsystems ..............++-- 250 209 Networks for XENIX by SCO ..........-- eee ee eeee New CALL CALL 
phoenix products PANEL Screen PE OS Rie f tees For AT Xenix aoe oo 
SCO Professional by SCO ............ Complete Lotus clone 
Authorized Dealer 
Springtime Sale! 
Paani Mabro fesomblar . 2.5.8. oi.0 ol se sensed sad eer eee: 295 179 We are open until 5 p.m. Pacific Time, (8 p.m. Eastern). 
Plantes’ Pat. .@\. 7.605 .5 Pfinish,Pfix+,Plink+,Pmaker,Pmate,Ptel 1295 895 Purchase Orders are accepted from qualified accounts 
Pfinish Performance Analyzer ..---- +++ +++ ere eee reece eens 395 229 at no extra charge. 
Pfix-86 Plus Symbolic Debugger ..--- +--+ ee reer ee ee eee 395 229 Visa and MasterCard are accepted with no surcharge applied. 
PiGie CO aRCHON LIDIA (3 hi oe ee ine we ois op 3 5 ee ope es New 475 CALL PI RO d Satine : ; 
Sillisheedis McHAd LGKGE: « P Gkca on Cboas's baiywt Dex 2502 Cart 395 229 ease include card expiration date when ordering by mail. 
Plink-86 Plus Overlay Linker ..........0eece sense eee eeeeees 495 359 a Account is charged when shipped. 
Pmaker Program Development Manager ......--+seeee ee eeeees 195 139 ‘S3) 
Dmate Macro Text EdHOr: 0. ois cee ee cece cee wer reedicces 225 139 a 
Pres Lin Cd. sc tsa sob eee ve Cae ce Cee ER Ge Rees ee ewe 395 229 
Ptel Binary File Transfer Program ....... esse eee eee eee eens 195 129 CALL TOLL FREE 


S00:336:1I66 


polytron products 





Bar 2 ey en has pane ies che Bae ee eRe Rers rf . US 

olytron RING os once snc wk ans ah aay an eds oawlee New . 3. as = 

PolyFORTRAN Tools| ..........-----0-eeeeee etre eeeees 179 139 OHIO 216-877-3781 

PolyLibrarian Library Manager ......-0-- +e eee rere tere renee 99 79 S00-225'l | Eales 
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PVMFM Polytron Virtual Memory File Manager ......--+++++++++> 199 149 Prices are subject to change without notice. 
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Listing One (Text begins on page 16.) 


temporary 
#7, immediate masking value 
3/22/86. 


* PERMG for the 68000. Inversely permute a 256-bit bit movloop: 

* vector, BLOCK, by table BITPERM. On call: move.l (a2)+, (a3)+ move WORK to BLOCK 

™ dbf d6,movloop use #7 already in dé 

* aQ -> BLOCK, a 32-byte area movem.1 (a7)+,d0-d6/a0-a3 

_ al -> BITPERM, a table of byte values in 0..255 rts all done 

* 

* On return, a0 -> permuted BLOCK setbit: 

i All registers saved move.b (al,d2),d4 get byte BITPERM[COUNT] 
* move d4,da5 save for reuse 

* Register usage: lsr #3,d4 index to byte of WORK 
* -> WORK, a 32-byte temporary work area and d6,d5 compute bit # in that byte 
* -> BLOCK eor d6,da5 reverse bit order 

* outer loop counter bset dS, (a2,d4) set the bit in WORK 

* inner loop counter bra permg2 re-enter main loop 

* longword from BLOCK 

ms byte from BITPERM -end 

* 

* 

* 


Version o Executes in 4 ms on 8 MHz system. 


-globl 
-globl 


permg 
work 


End Listing One 


movem.1 d0-d6/a0-a3,-(a7) 

moveqg #7,d0 ° clear work area 

lea work,a2 
clrloop: 

etre ok (a2)+ 

dbf d0,clrloop 

lea work,a2 

move.l a0,a3 

moveq #7,da0 

moveq #0,d2 

move a2,d4 

move adZz,das 

moveq #7,06 
permgl: 

moveqg 

move .1 
bitloop: 


Listing Two 


init registers 

save block addr for later 
outer loop control 

count of bits 

need word clear 

need word clear 

masking value 


* PERMF for the 68000. Permute a 256-bit bit vector, BLOCK 
* by table BITPERM. On call: 


aQ -> BLOCK, a 32-byte area 
al -> BITPERM, a table of byte values in 0..255 
On return, a0 -> permuted BLOCK. 


All registers saved. 
#31,da1 


(a0)+,d3 


inner loop control 


get longword from BLOCK Register usage: 


a2 -> WORK, a 32-byte temporary work area 


btst 


check for bit on 


+ + + F + + HF HF HF FF FH H HF HF OH HF 


dl,d3 d0 = byte from BITPERM, shifted to bit index 
‘bne setbit if on, set BITPERM[d2] bit in WORK dl = index to byte of BLOCK 
permg2: d2 = #3, immediate shift value 
#1,d2 --else, bump count d3 = identifies bit in WORK to change 
dl1,bitloop and do for all bits in this word a4 = loop counter for BITPERM values 
d0,permgl do for all words of BLOCK dS = identifies bit in WORK to change 
a6 = #7, immediate masking value 
d7 = temporary 
Version of 3/22/86. Execution time at 8 MHz = 6 ms. 


-globl permf 
-globl work 





- text 
permtf: 
movem.1 d0-d7/a0-a2, -(a7) 
nee moveq #7,d0 clear work area 
___ WANG IBM. lea work,a2 
ee Pa clrloop: 
Data General______° _—___ BEGHDED clr.l (a2)+ 
dbf d0,clrloop 
SAnr Ca eet lea work, a2 
: moveq #0,d3 ra counter to bits in WORK 
move #255,d4 nit BITPERM loop counter 
des RIME Fine smnarnrupesa iy ce ait +S DOS moveq #7,da6 masking value 
moveq #3,d2 shift value 
Dranvs NEED __cr/m__ ae a 
permloop: 
qappic move.b (al)+,d0 get byte from BITPERM 
—_—__UNIX___ move d0,dl we will need it twice 
lsr.w 4d2,dl compute byte index in BLOCK 
PC-MINI-MAINFRAME COMMUNICATIONS SOFTWARE ce caean taleies GE craig te bea 
btst dO, (a0,d1) is bit on in BLOCK? 
ANY COMPUTER WITH BLAST CAN TALK TO ANY bne permf2 if so, we must set bit in WORK 
OTHER COMPUTER WITH BLAST, the universal file ala ae sidiq #1.43 eiwe: wont hit cok Wonk 
transfer utility linking many different computers, dbf d4,permloop and next byte of BITPERM 
operating systems, and networks, movloop: 
via RS 232 serial ports. move.1 (a2)+, (a0)+ move WORK to BLOCK 
dbf d6,movloop use #7 already in dé 
NO ADD-ON BOARDS TO BUY! BLAST software movem.1 (a7)+,d0-d7/a0-a2 
uses any asynchronous modems or direct connect for fre ears 
fast, error-free data transfer through noisy lines and rere ae ea ian wae 
5 SON... 
PBXs, across LANs, and over satellites lsr.w  4d2,d5 find permuted bit in WORK... 
or packet witch move a3,da7 save d3 for counter 
. et switched networks. and d6,da7 Save lower 3 bits 
THE PERFECT LOW-COST LINK FOR PC’s, MINIS, cor <  d6,d7 reverse bit order for bset 
MAINFRAMES T tarbi bset d7, (a2, d5) set desired bit in WORK 
ranster binary or text files, or bra permfl re-enter main loop 
executable commands. Use BLAST standalone, or cas 
built it into your application. 
bset d7, (a2,da5) 


$250/Micros $495-895/Minis $2495/up Mainframes 


COMMUNICATIONS RESEARCH GROUP (800)-24-BLAST 


8939 Jefferson Hwy. Baton Rouge, LA 70809 (504)-923-0888 End Listings 
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1982 
#68—June 
peo ore 0)7 
#70—Aug. 


#741—Sept. 


#72—Oct. 
#73—Nov. 


he) 


#77—March 


#78—April 
#79— 
#80—June 
#841—VJuly 
#82—Aug. 


# 83—Sept. 


#84—Oct. 
#85—Nov. 
#86—Dec. 


2:7 | 
#87—VJan. 
#88—Feb. 


#89—March 


#90—April 
#91—May 
#92—June 
#93—July 

#94—Aug. 


#95—Sept. 


#96—Oct. 


AVAILABLE 


BACK ISSUES 


1985 
#99—Jan. 
#404—June 
#4108—Oct. 
#109—Nov. 
#110—Dec. 


1986 
#1414-Jan. 
#4112—Feb. 
#443—March 
#4144—Apopril 


Write-Hand Man 


“Almost a Sidekick for CP/M” 
Ted Silveira—Computer Currents, Aug. 27, 1985 


“WHM is ingenious and works as intended” 
Jerry Pournelle, BYTE Magazine, Sept. 1985 (c) McGraw-Hill 


Now available for CP/M 2.2, CP/M 3.0 and ZRDOS! 


The convenience of Sidekick on your CP/M machine! Trigger 
Write-Hand-Man with a single keystroke and a window pops open 
to run desk accessories. Exit Write-Hand-Man and both the screen 
and program are restored. Use with any CP/M program and most 
any CP/M machine. Takes only 5K of memory. 








FEATU RES Notepad for quick notes 


Appointment calendar 
HEX calculator 


















File and Directory viewer 
Quick access phonebook 
14 digit decimal calculator 


#97—Nov. 


BONUS 


Add applications written by you or others! No other “Sidekick” 
lets you add applications. Dump screens, setup printers, 
communicate with other computers, display the date and time. 
Let your imagination run wild! 


$49.95 (California residents add tax), shipping included. COD 
add $2. Sorry, no credit cards or purchase orders. 30 day guarantee. 
Formats: 8 inch IBM, Northstar and most 5 inch (please specify). 


Write-Hand-Man only works with CP/M 2.2, ZRDOS and CP/M 3.0 
(please specify). Simple terminal configuration required. Not avail- 
able for TurboDOS. Compatible with keyboard extenders, hard 
disks, and other accessories. 


Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
415-493-3735 


Trademarks: Write-Hand-Man — Poor Person Software, CP/M—Digital Research, 
Sidekick—Borland International 


TO ORDER: send $5 for 4 issue, $4.50 each for 2-5, $4 each 
for 6 or more to: Dr. Dobb’s Journal, 501 Galveston Drive, 
Redwood City, CA 94063 


Name 
Address 


City 
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‘ 4 / Another in a’series of productivity 
» notes on MS-DOS™ software from 
~_/UniPress. 


DATA MANAGEMEN 1, 
SYSTEM 


Features: 


_” Subject: Low-cost; powerful multi- 
“ user Data Management System with 
“keyed B+ tree Isam file. manager, 
“ report writer and.query facility. Runs 
“on the IBM-PC™ 


Zz _PHACT was. designed specifically for 
_” the programmer. PHACT provides a 
” one-produet solution for accessing 


and manipulating records, generating 
reports, and selecting data through a 


“  newertul query facility. 


PHACT is a trademark of PHACT Associates; IBM-PC, International Business 
Machines Corp.; Lattice is a trademark of Lattice, Inc.; MS-DOS is a trademark 


lm. Supports fixed and variable length 
records.(1-9999 bytes). 

@ Up to.9 alternate indices can be 
utilized. 

@ Record Jocking for multiple 
simultaneous updates: Handles 
Networks! 

@ Full-or partial key record access. 
@ Automatic key compression to 
save. disk Space and improve 
performance. 

@ Databases are password protected 
and.may-be opened for shared or ex- 
clusive usé. 

Cam be linked with these C 
libraries: Lattice™ Microsoft, C86, 
and Aztec™ 

@ PHACT-report provides an easy to 
use’ command language for format- 
ting reports from.existing PHACT 
databases. 


‘PHACT-query uses a SEQUEL-like 


relational query language for selecting 
data. 

@ PHACT Forms Generator coming 
soon! 

@ Excellent product to integrate into 
your own packages: Call for terms 
on-distribution rights for-source 
purchases. 


Price: 


PHACT Data Management 
System — 

Binary Source 
Single-user system $655 $2085 
Multi-user system ~ 1220. 4985 


Available-for UNIX™ and VMS™ too! 
Mastercard/Visa accepted 


PHAGT 


For our Free Catalog and more-infor- 
mation.on these-and-other MS-DOS 
software products; call or write: 
UniPress Software dnc. 

2025 Lincoln Highway 

Edison, NJ 08817 

Telephone: 201-985-8000 





Order Desk: 800-222-0550 (Outside NJ) 


Telex:’709418 
European Distributor 
Modulator SA 


Switzerland, Telephone: 41.31 59 2222 


Telex: 911859 
Japanese Distributor 
DAT. Inc. 

Minato-Ku, Tokyo 
Telephone: 03586-6580 


of Microsoft: Mark Williams is a trademark of Mark Williams; Aztec is a 
trademark of Aztec. 


PressSoftware 


Your Leading Source for UNIX“Software. 


5 
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Work Smart C CHEST 


with These Powerful Listing One (Text begins on page 22.) 
C Utilities v 


E SORT .C 


* 


Get more value from your C system. 
Boost program quality and slash de- 
velopment time with these professional 
utilities for leading C-compiler systems. 


C Utility Library sjsS $155 


Copyright (c) 1986 Allen I. Holub 
* All rights reserved. 
ae 


#include <stdio.!> 
#include <ctype.h> 
#include <getargs.h> 


PREP RPPP 
NUBWNHPOW MIAN ABWHEHE 


Over 300 C subroutines extern char *malloc(); 
C and assembler source code and PR cc rc Rein gh Tn ee Be Pe a Liga Se age a a 
demonstration programs for screen han- . General purpose #defines. 
. . ° ° * 
dling, color printing, graphics, DOS 7 f 
disk and file functions, memory manage- 18 #define MAXBUF (132 + 1) /* Maximum input line length +1 */ 
ment and peripherals control. 19 #define MAXLINEC 1024 /* Maximum number of lines in */ 
20 /* an input file before merge */ 
C-tree $395 $329 21 /* files start to be created =f 
22 #define MAXTMP 18 /* The maximum number of temp- */ 
B-Tree database system 23 /* orary files that will be */ 
Store, update and retrieve records 24 /* created. Note that fp's are */ 
eS . wR * 
easily. High-level multi-key ISAM se . cee ee Ssaaaita es a 
routines and low-level B-Tree 27 ee 
functions. Available for MS-DOS, CP/ 28 #define isnum(cl) ( isdigit(cl) || (cl) == '=" ) 
M-86, and CP/M-80. Easily transpor- 7s FP SURE Noe TE Ts A ea LEN RES nen cet oh PETE ST 
ted. Adaptable for network and 31°: 3 Variables for getargs. The immediately following variables will 
multiuser. Includes source. 32° 5:3 be canoe tar by getargs() according to what flags it finds on the 
ao command line. 
PHACT $395 $200 st #1 
35 
Data Base Record Manager 36 static int Noblanks a, ; /* Blanks don't count */ 
Includes high-level features 37 static int Numeric = 0 : /* Sort numbers by val */ 
found in larger database systems. =6 pete ie Aiueiee a ; : 5 seen Sas oe ‘ af 
: atic in econdary = : on s e 
Available for MS-DOS, CP/M-86 40 static int Dictorder = 0 : /* Use dictionary order */ 
and CP/M-80. 41 static int Foldupper = 0 ; /* Fold upper case x / 
42 static int Reverse = 0 ; /* Sort in reverse order */ 
Pre-C $395 $329 43 static int Delim = 0 ; /* Field separator oy 
LINT-like source code analyzer 44 static char *Mdir Poe oe /* Put temp files here */ 
aly 45 static int Nodups = 0 ; /* Don't print duplicate */ 
Locates structural and usage errors. 46 7a ee x/ 
Cross-checks multiple files for bad 47 ARG Argtab[] = 
ae denne declarations and other inter i jean is Saint cals cris isiaeash telPties i 
ace errors. 50 
e 51 { 'b' , BOOLEAN, &Noblanks, “ignore leading whitespace (Blanks)"}, 
Windows for C $195°$165 a2 { ‘d' , BOOLEAN, &Dictorder, “sort in Dictionary order" hy j 
Versatile window utility s { "f° , . BOOLEAN, eras “Fold upper into ee : 
. 4 { 'n' , BOOLEAN, &Numeric, “sort Numbers by numeric value" ; 
Supports IBM PC compatible and some ao {. -"p* | INTEGER, &Primary, “use field <num> as Primary key" is 
non-compatible environments. 56 {, *¢*- BOOLEAN, &Reverse, “do a reverse sort" iy 
57 { ‘'s' , INTEGER, &Secondary, “use field <num as Secondary key" }, 
PANEL $295 $235 { ‘'t’ , CHARACTER, &Delim, “use <C> to separate fields" by 
* ors 9 {25 " | - SERTICs, (int*) &Mdir, “prepend <str> to Temp file names" }, 
Screen generating utility ; 60 { ‘'u' , BOOLEAN, &Nodups, “delete duplicate lines in output" } 
Create custom screens via simple, 61 }; 
powerful editing commands. Select 62 
colors, sizes and types, edit fields. A #define NUMARGS (sizeof (Argtab) / sizeof (ARG) ) 
Includes direct input utility. SS Gf Bt gear td lh ane apcliasta ane ees: Eee ae eo 
66 * Global variables. The Lines array is used for the initial 
HALO $ $ 1 BG 67 * sorting. 
Ultimate C graphics 3 ne 
A comprehensive package of graphics 70 static int Options; /* Set by main if any options set */ 
subroutines for C. Supports multiple 71 static char *Lines [MAXLINEC] ; /* Holds arrays of input lines */ 
graphics cards. J2-static. int Linec; /* # of items in Lines “s 
$315 73 static char **Ahrov; /* Copies of argv and arge uy 
PLINK-&6 $395 74 static int Argc; 
e 7 
Overlay linker Ge tester ce re eta pt Mg tg Ue es eS Rt 
Includes linkage editor, overlay manage- ae The heap used in the merge process: 
ment, a library manager and memory a 
mapping. Works with Microsoft and 80 typedef struct 
Intel object format. 81 { 
82 char string [MAXBUF]; /* One line from the merge file */ 
83 FILE *file; /* Pointer to input file ae | 
84 } 
85 HEAP; 
To order or for information call: % 86 


87 HEAP *Heap[ MAXTMP ]j; /* The heap itself «7 

88 

89 /*—--+---—--——-——- —- -—-- -- --- —_-—- - —— af 
eae 90 

91 #ifndef DEBUG 

92 #define pheap(s,n) 


1 800-TEC WARE “Sq, 2 


95 pheap( str, n ) 
(In NJ call 201-530-6307) f 96 char *str; 


(continued on page 70) 


UNIX wa egstered TM of Bell Laboratones, (wee, TM Faircom. Inc . PHACT TM PHACT ASSOx 
ae PLINK x6. TM PHOE NIX, HALO TM Media Cybernetics, Inc. PC lint TM GIMPLE software 
ANEL TM Roundbull Computer Systems. Lid WINDOWS FOR C TM Creauve Solunons. CP M TM DRI 








A good C book just isn’t complete without a good C compiler 
to go with it. That’s why we give you both. You get a comprehensive 
450 page book and a standard, full feature C compiler. It’s 
everything you need to take advantage of this powerful, portable 
language. 

Our book is filled with sample programs. You'll learn how to 
use pointers to functions with a program that computes the time 
value of money. A simple data base program illustrates dynamic 
memory allocation and linked lists. Sample programs are included 
with the description of all functions. 

Our compiler works fast because it makes only one pass 
through your program. Unlike other C compilers, it doesn’t require 
a separate program to control the compile process. And it won't 
wear out your disk drives creating intermediate files. One fast pass 
and you’ve got an object file that’s ready to be linked. 


Language Features 
abs 


@ Data Types: char, short, 
int, unsigned, long, float, 
double, void 


Data Classes: auto, 
extern, static, register 


Typedef, Struct, Union, 
Bit Fields, Enumerations 


Structure Assignment, 
Passing/Returning 
Structures 





The Best C Book 


A Powerful C Compiler 
One Great C Value °39.95 


You also get our fast linker and an extensive library of standard 
C functions. In addition to the portable C functions you get a large 
number of computer specific functions so you won’t have to write 
them yourself. The library includes an interface to the BDOS and 
BIOS routines so you can easily add your own special functions 
when the job demands it. 

You can’t learn to program in C without a good book and a 
good compiler. You can buy other C books but they don’t include a 
compiler. You can buy other C compilers but they don’t include a 
book. Either way you spend a lot of bucks and the compiler might 
not do what the book says it should. With MIX C you don’t have to 
worry. You get both a good book and a good comiler for just a few 
bucks. And we guarantee that the compiler does what the book says 
it should. 


Functions 


getcseg 
getdseg 


putd 
getdate 


system 
tolower 
toupper 
eS 
a 
write 
writechs 
xmembeg 
xmemend 
xmemeget 
xmemput 
xmovmem 
—exit 





MIX Editor $29.95 


When you’re programming in a high 
level language you need a high powered 
editor. That’s why we created the MIX 
Editor. It’s a powerful split screen text 
processor that works great with any lan- 
guage. It has auto indent for structured 
languages like Pascal or C. It has automatic 
line numbering for BASIC. It even has fill 
and justify for English. 

You can split the screen horizontally 
or vertically and edit two files at once. You 
can move text back and forth between the 
two windows. You can also create your 
own macro commands from an assortment 





comes configured like WordStar but you 
can customize it to work like other editors 
or word processors. 

The editor works terrific with our C 
compiler. The MSDOS/PCDOS version has 
amacro for compiling direct from memory. 
If your program has an error the editor 
positions the cursor to the error and 
displays an error message. You can also run 
other programs and execute DOS com- 
mands. Because the editor works so well 
with our C compiler we want to make sure 
you have both. For a limited time we're 
offering the editor for only $15 when 








ASM Utility $10 


The ASM utility allows you to create your own 
assembly language function libraries. It works 
with Microsoft’s MASM or M80 assemblers. It 
provides macros for function entry and exit so 
you don’t have to worry about environment 
details. It also provides a macro for calling C 
functions from assembly language. Lots of 
useful assembly language functions are in- 
cluded as examples. 


ORDERS ONLY 


1-800-523-9520 
1-800-622-4070 


Canadian Distributor 
Saraguay Software: 416-923-1500 


















Zip 








Suite 363 


of over 100 predefined commands. It purchased with the C compiler. 
30 Day Money Back Guarantee © NOT COPY PROTECTED 
Editor $ (29.95) O PCDOS/MSDOS (2.0 or later) | Name 
é $ (39.95) = on ma ae Street 
; oubile side . 
| C&Editor $§$ (54.95) O Tandy 2000 City 
| ASM Utility $ (10.00) O 8 Inch State 
| TX Residents $ (6.125% sales tax) O) Other —________—-_ Country 
) Shipping $ (see below) CO ig = or later/Z80) Sie 
Cc 

Total 2 C) Kaypro II 

O Check O Money Order UO MC/Visa O Kaypro 4 
| # Exp_____._ D0. Apple (Z80) 

1 Osborne I SD 


| Shipping Charges: (No charge for ASM Utility) 


| USA: $5/Order Canada: $10/Order 


Overseas: $10/Editor @ $20/C @ $30/C & Editor 


1) Osborne I DD 
(1) Morrow MD II 
OO Other 
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software Richardson, TX 75081 


| 

| 

| 

| 

| 

2116 E. Arapaho | 
| 

i 

(214) 783-6001 | 
| 


Ask about our volume discounts. D 
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Listing One (Listing continued, text begins on page 22.) 





97 { 
98 int 1; 
99 
100 print f ("+--—--------—--—----------—-- \n") 3 
101 printf("| %s, heap is:\n", str); 
Perfect Windows 103 ries eee 
? 104 printf("|%02d: $s", i, *(Heap[i]->string) ? 
Powerful Data Entry 106 . Ft es ali a een I 
L I t t d 4 107 print f ("+---------—-----—-------—-- \n"); 
FULLY Integrate 109 
9 109 
110 #endif 
111 
For Effortless ee 8. pcre we MP ir A ‘| 
; 113 
Data Entry Windows! | | 3s: seavpetarse, arow 
. 115..int argc; 
. . ax . 
« Complete input formatting ie cc swe 
¢ Unlimited Validation 118 /* Compress an argv-like array of pointers to strings so that 
5 119 * adjacent duplicate lines are eliminated. Return the 
¢ Full attribute control 120 * argument count after the compression. 
. 2 . . . * 
¢ Field sensitive application help system = : 
¢ Multiple virtual windows oa ee int i ; 
. ae n nargc ? 
¢ Fully automatic, collision proof overlay 125 char *tdp ; 
126 

and restore 127 rated ie As 
¢ Print to & scroll background windows os 7 i 
« Animated window "zoom" 130 Ee ais 
¢ Move, grow, shrink, hide, or show a Pe eee. 

any window = if( stremp(argv[i-1], argv[i]) !=0 ) 

" ® " . 4 
¢ "Loop function" allows processing 135 *dp++ = argv[i]; 

while awaiting input ah es 

and much much more! 138 } 
: 3 os 139 
Designed to increase your productivity 140 return( nargce ); 
; 5 141 
and help you produce superior applica- 142 
tions in dramatically less time! Includes pee Re eae ee ee sf 
100% source, tutorial, reference manual, nae ee “skip _field(n, str) 
n; 
examples, and sample programs. ee *stx; 
‘ : { 
Specify Microsoft, 95 i e uP over n oe The delimiter is in the global 
. e variable Delim. Return a pointer to either the character 
Lattice, Computer $ 1 49 151 * to the right of the delimiter, or to the '\0'. 
Innovations, Aztec, — oF 
or Mark Williams. Ask about Unix. 154 while(n>0O && *str ) 
155 
ee eet ee 156 i 
£( *str++ == Delim) 
NOW... VCScreen ! ne AF 
; 158 } 
Our new interactive screen "painter" 159 
160 ; 
actually lets you draw your data entry 161 } eee 
windows! Define fields, text, boxes & Pehvh tee 
borders. Move them around. Change ee z Comparison functions needed fot. poet ing. oF ent ne a ae 
. * 
attributes. Then the touch of a button 166° * ssort() will call either argvcmp or qcmp, passing them pointers 
generates C source code calls to the fe : een oe ao aes ae functions, qcmpl () 

; ; : and qcmp e worknorse functions will also be called by the 
Vitamin Cc routines! Now, your screen to, reheap() subroutine used to manipulate merge files. 
designs will be faster and more pleasing . 
when they are created with VCScreen! 172 static int argvemp( slp, s2p ) 

oe gee **$19,;- **s2p; 
Requires Vitamin C lib- $99.95 175 return( stromp( *slp, *s2p ) ); 
rary above. For IBM & compatibles. ris } 
DAD LR rar ote tn gn nein */ 
: . 179 
For Orders Or Information, 180 static int Geipt Nerin  ctL20 
(214)245-6090 [jie 
ae a **str2p; 
183 { 
Creative Programming Consultants pt is baie — = = the eaacat of fields, calling qanpl 
© do € actual comparisons. Assuming here that 
Box 112097 Carrollton, TX 75011-2097 on us Secondary won't be set unless Primary is set too. 
Include $3 ground, $6 air, $15 overnight 188 
shipping, $25 if outside USA. Texans add ee } Sera Sawer ey eee Ts 
6% tax. All funds must bein U.S. dollars - 


drawn on a U.S. bank. 
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214 
215 
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224 
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229 
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232 
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237 
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291 
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257 
258 
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268 
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288 
289 
290 
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292 
293 


qampl( strl, str2 ) 
*SCrl,  FStr2; 


Workhorse comparison function. Takes care of sorting 
fields. If a primary sort field is specified then 
qcmp1() skips to that field and calls qcmp2 to do the 
actual comparison. If the primary fields are equal, then 
the secondary fields are compared in the same way. 


rval; 


if( !Primary ) 


/* bans ins ew cians eels alpen 
static int 
char 
{ 
/* 
* 
* 
x 
x 
nf 
int 
else 
{ 
} 
} 
|[*--------—---—- 
static int 
char 
char 
{ 
/* 
x 
x 
* 
* 
x 
* 
*x 
«x 
*« 
« 
*/ 


register unsigned int 


return qcmp2( stri, str2 ); 


rval = qanp2(_—_ skip field(Primary - 1, strl), 


skip field(Primary - 1, str2) ); 

if( !rval && Secondary ) 
{ 

/* The two primary keys are equal, search the */ 

/* secondary keys if one is specified =f 

rval = qanp2 ( skip field(Secondary - 1, strl), 
skip field(Secondary - 1, str2) ); 
} 


return rval; 


qcemp2( strl, str2 ) 
*stri; 
*str2; 


Workhorse comparison function. Deals with all command line 
options except fields. Returms 


0 if strl = str2 
positive if stri-->. xET2 
negative if Sstti <<. 6tr2 


This is a general purpose (and therefore relatively slow) 
routine. Use strcemp() if you need a fast compare. 

Comparison stops on reaching end of string or on encountering 
a Delim character (if one exists). So make sure Delim is 

set to '\0O' if you're not sorting by fields. 


if ( Noblanks ) 


{ 


ci,. 2; 
/* 
* Skip past leading whitespace in both strings 
<5 


while( isspace(*strl) ) 
strl+t; 


while( isspace(*str2) ) 
str2++3 


if ( Numeric 6& isnum(*str1) &6& isnum(*str2) ) 
{ 
/* Add Oxff to the two numeric values so that 
* cl and c2 can't be confused with a Delim 
* character later on. 


*/ 
Cl. = stol{.estrl:) + Oxit -¢ 
c2 = stoi( égstr2 ) + Oxff ¢: 


if( cl == c2 ) 


continue; 
else 
break; 
} 
cl = *strl++; 
c2 = *str2++; 
if (Dictorder) 
{ 
/* Skip past any non-alphanumeric or blank 
* characters. 
«/ 


while( cl && !isalnum(cl) ) 
Ci: =. *st rit: 


while( c2 && !isalnum(c2) ) 
c2 = *str2++ ; 


(continued on next page) 
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INTERFACE 


S-100 ==> 488 


Controls IEEE 488 (HP1B) 
Instruments with an 
S-100 computer 

Acts as controller or 
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Basic and assembly 
language drivers supplied 
Meets IEEE 696 
specification 

Industrial quality burned 
in and tested up to 125K 
bytes/sec under software 
control 3 parallel ports 
(8255-5) 

$375 
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Expa fl j a b if Listing One (Listing continued, text begins on page 22.) 








294 
295 
296 if (Foldupper) 
297 { 
298 /* Map cl and c2 to upper case */ 
299 
300 cl = toupper( cl ); 
301 c2 = toupper( c2 ); 
302 } 
303 
304 /* Keep processing while the characters are the same 
ty 305 * unless we've reached end of string or a delimiter. 
_— 306 ss 
A two user Slave card based on 307 } 
2 : : ==¢2 1 1 != Delim ); 
Hitachi’s Z80 compatible high speed, San er MR ee a ace a SAR ee 
1OMHz super microprocessor. 310 if( Delim ) /* If we're sorting on a field */ 
aii { /* and we've found a delimiter */ | 
312 if(cl — Delim) /* then map the delimiter to a */ 
00* 313 cl = 0; /* zero for purposes of #7 
314 /* comparison. *7 
oa 315 if(c2 == Delim) 
316 c2 = 0; 
317 } 
318 
Features Include. . . 319 return( Reverse ? (c2 - cl) : (cl - c2) ); 
° 4-10 MHz Z80 Compatible HD64180 | 320) 
e 1/2 Megabyte Nonbanked Memory elena ii ed eae a oe eee ee he el ae ee ee TS */ 
e 2 Asynchronous Serial Ports To 38.4 323 ; 
e 1 High Speed Synchronous Port — eos next file () 
e All Transfers Via 1.6 MHz DMA!!! 326 /* Return a FILE pointer for the next input file or NULL 
e Unique Expansion Port Offers; ale * if ~ more ee — (le. all pee 
wae : * on the comman ne have been processed) or 
2 Additional Serial Ports or . . . 329 * can't be opened. In this last case print an error message. 
2 Parallel Ports or... 330 * If Argc == 1 the first time we're called, then standard 
Real Time Clock With Battery Backup 331 ” input is returned (the first time only , NULL is returned 
332 - on subsequent calls). 
; 333 oy 
334 
335 FILE *ipe 
336 Static int first time = 1 ; 
337 
338 if( first time ) 
339 { 
340 first time = 0; 
341 if( Arge == 1 ) 
342 return stdin; 
343 } 
344 
The industry’s fastest 8- bit Master CPU oF ns Arge—— > 1) 
card with features superior to most 347 Let ite + Ropontetikegy; 89). 
16-bit cards. 348 fprintf(stderr, “sort: can't open %s for read\n", 
349 *Argv ); 
00* 350 return fp; 
391 } 
352 
Brag: 49 Bo aa0 return NULL; 
354 } 
355 
Each Master Features . . . BE tp, OEE ee ea ars an eee ee . 
¢ 4-10 MHz Z80 Compatible HD64180 ae oo () 
‘§ 1/ 2 Megabyte Nonbanked Memory , 360 {* Get text from the appropriate input source and put 
e 2 Asynchronous Serial Ports To 38.4 361 * the lines into Linev, updating Linec. Return non-zero 
e 1 High Speed Synchronous Serial Port 362 . if more input remains. Note that non-zero will 
a . 363 * be returned if there are exactly MAXLINEC lines in 
ae Bi-directional Parallel Ports 364 * the input, even though there isn't any more actual 
de e tek 
e TurboDOS ; ZSYSTEMS ; CP/M ‘ 365 * input available. If malloc can't get space for the line, 
& OASIS** Operating Systems ou a we'll remember the line in buf and return 1. 
e FDC Simultaneously Controls 
” ” 99 - 368 
8”, 5%”, & 3%” Drives 369 register int c; 
e SASI/SCSI Interface 370 static FILE *fp = 0; 
e Optional High Speed Hard Disk/File 3 ANd char buf{ MAXBUF } = {0}; /* Input buffer */ 
t maxcount ; 
Access Tape Backup and True 373 cay wae 
ETHERNET Controller a eae | jetta : siestey ; 
é : !fp * s is only true the first * 
*Prices apply to 6 MHz, 64KB versions and — fp = nextfile(); /* time we're called. */ 
are good for a limited time only on | 33, pits See dt ces 
purchases of ten or more. For less than | 379 Linec = 0 ; 
380 
fen, v lease call. 381 for ( maxcount = MAXLINEC; --maxcount >= 0 2) 
**Trademarks: TurboDOS - Software 2000; ZSYSTEMS - 382 { 
Echelon; CP/M - Digital Research; OASIS - THEOS Software 383 if( !*buf ) 
384 while( fgets(buf, MAXBUF, fp) == NULL ) 
INTELLIGENT COMPUTER | 385 1f( I (fp = nextfile()) ) 
i 386 return( 0 ); /* No more input */ 
DESIGNS CORP. 387 
23151 Verdugo Drive, Suite 113 
Laguna Hills, CA 92653 (continued on page 81) 
(714) 581-7500 
Circle no. 278 on reader service card. 
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Dr. Dobb’s Journal of 
Software Tools for 1984: over 
1000 pages of text and code. 
To commemorate the release 
of Volume 9, we are offering 
a discount on the full set 

of Bound Volumes. This set 
includes every issue of DDJ 
from 1976 through 1984. 

If you order the set now, you 
will receive a $40 discount. 
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This ninth volume in the 
Dr. Dobb’s Bound Volume 
series contains the com- 
plete editorial contents of 





DDJ Listings on Disk 


You’ve demanded it, and 
we're delivering. 


Dr. Dobb’s Journal of 
Software Tools now offers a 
listings service. The first disk 
has just been released, con- 
taining most of the program 
listings that appeared in the 
magazine from January 
through April 1986. This 
accompaniment to the 
magazine is available in 
various formats. 


essititiie 
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Catalog 


Continuing the tradition of 

providing its readers with 
useful, powerful software tools, 

Dr. Dobb's Journal of 

Software Tools presents this 

collection of programming tools 

in the form of books and 
software on disk. 
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To Order: 


To order any of Dr. Dobb’s 
products, return the order 
form at the end of this 


e Dr. Dobb’s Complete catalog, or 

Toolbox of C CALL TOLL-FREE 

Dia 1-800-528-6050 EXT. 4001 
; eae for and refer to product item 
. number, title, and disk 

° A Unix-like Utility Package | format. ; 

for MS DOS by Allen For customer service 

Holub questions, 

CALL M&T 


e Dr. Dobb’s Z80 Toolbook 


by David Cortesi 


PUBLISHING, INC. 
415-366-3600 EXT. 209 
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Programs by the Pound 
Announcing: Modula-2, and taught Forth Bound Volume 1: 1976 and Dr. Dobb’s investigated: 
et to talk to a 68000, to MS DOS, Item #013 the Heath H-8, the KIM-1, 
Dr. Dobb's and to the people of China. tem the Alpha Micro, MITS 


Bound Volume 9 

Over 1000 pages of listings 
and text. The entire 1984 edi- 
torial contents of Dr. Dobb’s 
Journal of Software Tools. 





Ss 


Bound Volume 9: 1984 
Item #020B 


Shaping things to come. In 
1984 new Editor-in-chief 
Mike Swaine brought his 
interests in advanced tech- 
nology to Dr. Dobb’s Journal. 
We presented the concepts 
behind Prolog and published 
an expert system for weather 
prediction. We learned 


We examined a new language 
implementation called 
Turbo Pascal and extended 
implementations of C with 
a preprocessor, a library, 
Tony Skjellum’s tricks, and 
Allen Holub’s Grep. We 
published two powerful 





encryption systems, tele- 
communications protocols, 
floating-point benchmark 
results, and an issue devoted 
to the internals of Unix. 
And Ray Duncan, Bob 
Blum, and Dave Cortesi 
were on hand with their 
fascinating columns. 





The working notes of a 
technological revolution. 
Programmers from Defense 
laboratory systems analysts 
to kitchen-table entre- 
preneurs worked for the 
intrinsic rewards to put 
development software on the 
brand-new invention, the 
microcomputer. Before there 
was an Apple, Dr. Dobb’s 
Journal of Tiny Basic 
Calisthenics and Orthodontia 
(subtitle: Running Light 
without Overbyte) was 
founded to put a program- 
ming language on the 
machines, and became both 
chronicler and instrument 
of the revolution. In this 
first-year volume: Tiny Basic, 
the first word on CP/M, 
notes on building an IMSAT, 
floating-point and timer 
routines. 








Bound Volume 2: 1977 
Item #014 


Running light without over- 
byte. By year two, Dr. Dobb’s 
formula was concocted: 
tough questions and serious 
technical issues handled 
with enthusiasm, wit, and 
scant reverence for the 
accepted answers. Source 
code. Tools for programmers. 
Respect for tight program- 
ming. Dr. Dobb’s Journal 
readers shared insights 

on warping the Intel 8080 
into a computer CPU, and 
Dr. Dobb’s published a 
complete operating system 
for the chip. A motley crop 
of computers and software 
products were popping up, 


















Basic, Poly Basic, and 
Lawrence Livermore Labs 
Basic. Dr. Dobb’s introduced 
Pilot for microcomputers 
and published tips on doing 
string handling, high-speed 
I/O, and turtle graphics in 
limited memory. 





Bound Volume 3: 1978 
Item #015 


The roots of Silicon Valley 
growth. In 1978 Steve 
Wozniak and other pro- 
grammers were publishing in 
Dr. Dobb’s Journal code that 
would help them grow multi- 
million-dollar computer 
companies. The proposed 
S-100 bus standard was 
hashed out in Dr. Dobb’s 
pages. Dr. Dobb’s contributors 
began to speak more in terms 
of technique than of specific 
implementations as the 
industry began to diversify. 
Languages covered in depth 
included SAM76, Pilot, 
Pascal, and Lisp. 















To Order: 


To order any of Dr. Dobb’s 
products, return the order 
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catalog, or 

CALL TOLL-FREE 
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Bound Volume 4: 1979 
Item #016 


In the midst of the Gold 
Rush. Three years before 
IBM would release its PC, a 
thriving, rough-and-tumble 
personal computer industry 
existed. Fortunes had been 
made and lost, the effective 
power of the machine multi- 
plied a hundredfold. By 
1979 some stability had even 
emerged; one could speak 
of the processors that had 
proven longevity as micro- 
computer CPUs: the 8080, 
the Z80, the 6800, and the 
6502. Dr. Dobb’s Journal 
focused on the best ways to 
use these processors, with 
algorithms, tips, and code 
for 8- to 16-bit conversion, 
pseudo-random number 
generation, micro-to- 
mainframe connections, 
telecommunications, and 
networking. And lots of 
useful code. 


Bound Volume 5: 1980 
Item #017 


The preeminence of CP/M 
and the rise of C. More 

than any other magazine, 
Dr. Dobb’s Journal was 
responsible for the spread 
of CP/M and C on micro- 
computers. Both of those 
movements began in 1980. 
Dr. Dobb’s all-CP/M issue, 
including Gary Kildall’s 
history of CP/M, sold out 
within weeks of publication. 
This was the year of Ron 
Cain’s original Small C com- 
piler, of a CP/M-oriented 

C interpreter, CP/M-to- 
UCSD Pascal file conversion 
techniques, and of a greater 
concern in Dr. Dobb’s with 
software portability. 








Bound Volume 6: 198] 
Item #018 


The first of Forth. 1981 saw 
Dr. Dobb’s first all-Forth 
issue (now sold out), along 
with an emphasis on CP/M, 
C, telecommunications, and 
new languages. David Cortesi 
began “Dr. Dobb’s Clinic?’ 
one of the magazine’s most 
popular features. Highlights 
included information on 
PCNET, the Conference 
Tree, the Electronic Phone 
Book, Tiny Basic for the 
6809, writing your own 
compiler, and a systems 
programming language. 


Bound Volume 7: 1982 
Item #019 


Legitimacy. By 1982 IBM 
had become a player in the 
personal computer game and 
was changing the rules. New 
microprocessors arrived, 

the first designed specifically 
to serve as personal com- 
puter CPUs. In Dr. Dobb's 
Journal Dave Cortesi pub- 
lished the first serious 
comparison of MS DOS and 
CP/M-86. Dr. Dobb’s started 
two new columns: the CP/M 
Exchange, as a rearguard 


maneuver to ensure that 
good tools for CP/M pro- 
grammers would continue 
to be developed and circu- 
lated, and the 16-Bit Software 
Toolbox to investigate the 
8088/86 and other new 
microprocessors. We pub- 
lished code for the 68000 
and Z8000 processors, and. 
looked ahead, in a provoca- 
tive essay, to fifth-generation 
computers. 


Bound Volume 8: 1983 
Item #020 


Power tools. Personal com- 
puters were proving them- 
selves to be true professional 
software development tools 
by 1983, the year in which 
Jim Hendrix completed his 
“canonical” version of 
Small C in Dr. Dobb’s Journal. 
Dr. Dobb’s published more 
68000 and 8088 code, and 

as the memory limitations 
relaxed, the magazine’s 
commitment to tight code 
let it shoehorn impossibly 
large systems into memory. 
Small C was just one of the 
major software products 














published in their entirety in 
Dr. Dobb’s pages that year; 
there were Ed Ream’s RED 
screen editor and a version 
of the Ada language called 
Augusta. 





Buy the complete set 
and save 15% 


If you buy all nine volumes, 
covering the entire editorial 
content of Dr. Dobb’s Journal 
of Software Tools from the 
first issue in 1976 through 
1984, you pay just $225. 
That’s a 15% discount and 
over $40 off the combined 
individual prices. To order 
the complete set of Bound 
Volumes 1 through 9, ask 


for item #020C. 

Item #013 $27.75 Vol. 1 
Item #014 $27.75 Vol. 2 
Item #015 $27.75 Vol.3 
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To Order: 
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catalog, or 


CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 
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number, title, and disk 
format. 
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A collection of powerful tools 
for C software developers, 
including books, software on 
disk, and reference materials 
from the publisher of Dr. Dobb's 
Journal of Software Tools 


Dr. Dobb’s 








From M&T Publishing and 
Brady Communications... 


Dr. Dobb's 
Toolbook of C 
Item #005 


The Toolbook contains over 
700 pages of C material, 
including articles by such 

C experts as Kernighan and 
Ritchie, Cain and Hendrix, 
Skjellum and Holub. The 
level is sophisticated and 
pragmatic, appropriate for 
professional C programmers. 

The most valuable part of 
the Toolbook to many will 
be the hundreds of pages 
of useful C source code, 
including a complete com- 
piler, an assembler, and text- 
processing utilities. The 
accompanying text explains, 
in the programmers’ own 
words, why they did what 
they did. 

Dr. Dobb’s Journal of 
Software Tools introduced a 
generation of personal com- 
puter programmers to the 
C programming language, 
and all the best C articles 
and code published in 
Dr. Dobb's over the years is 
included and updated in the 
Toolbook, including Ron 
Cain’s original Small C 
article and articles from sold- 
Out issues. But the Toolbook 
also includes material never 
before published, including 
Jim Hendrix’s complete 
macro assembler in C. 













. of itself. 


Complete C Toolbox 





Dr. Dobb’s offers the 
Toolbook in a special hard- 
bound edition for just $29.95. 
You'll find: 

Jim Hendrix’s famous 

Small C Compiler and New 
Library for Small C (both 
also available on disk), 
NEW: Hendrix’s Small Mac: 
An Assembler for Small C 
and Small Tools: Programs 
for Text Processing (both also 
available on disk), 

All of Tony Skjellum’s 

C Programmer’s Notebook 
columns distilled by Tony 
into one thought-provoking 
chapter. 


Also from 
M&T Publishing and 
Brady Communications... 


The Small C 
Handbook 
Item #006 or #006A 


Jim Hendrix’s Small-C 
Handbook is the reference 
book on his Small-C com- 
piler. In addition to describ- 
ing the operation of the 
compiler, the book contains 
complete source listings to 
the compiler and its library 
of arithmetic and logical 
routines. 

A perfect companion 
to the Hendrix Small-C 
compiler offered by Dr. Dobb’s 
on disk, the Handbook even 
tells how to use the compiler 
to generate a new version 









While both the Handbook 
and the Toolbook provide 
documentation for the 
Small-C compiler, the 
Handbook contains a more 
detailed discussion and is 
available with an addendum 
for the MS/PC DOS version. 

The Handbook, Item #006, 
is just $17.95. Jim Hendrix 
has ported the compiler to 
the MS/PC DOS environ- 
ment since the Handbook 









was printed, and the Hand- 
book plus his MS/PC DOS 
Handbook Addendum, Item 
#006A, is $22.95. 


Dr. Dobb's C 


Software Tools on Disk 
‘To complement the Toolbook, 
Dr. Dobb’s also offers the 
following programs on disk. 
Full C source code and 
documentation is included. 
Except where indicated, both 
CP/M and MS/PC DOS 
versions are available. 





Small-C Compiler 
Item #007 


Jim Hendrix’s Small-C 
Compiler is the most popular 
piece of software ever pub- 
lished in Dr. Dobb’s 10-year 
history. Like a home-study 
course in compiler design, 
the Small-C Compiler and 
Small-C Handbook provide 
everything you need but the 
computer for learning how 
compilers are constructed, 
and for learning C at its most 
fundamental level. 


While both the Handbook 
and the Toolbook provide 
documentation for the 
Small-C compiler, the 
Handbook contains a more 
detailed discussion and is 
available with an addendum 
for the MS/PC DOS version. 
The MS/PC DOS Small-C 
Handbook Addendum is 
recommended in addition to 
the Handbook for MS DOS 
or PC DOS users. 

The Small-C Compiler is 
available for $19.95 in either 
the CP/M or the MS/PC 
DOS version. 


To Order: 


To order any of Dr. Dobb’s 
products, return the order 
form at the end of this 
catalog, or 

CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 
and refer to product item 
number, title, and disk 
format. 

For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 209 


M&T BOOKS 
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Dr. Dobb’s 
Complete C Toolbox 









Small-Mac: An 
Assembler for Small-C 
Item #012A 


Small-Mac is an assembler 
designed to stress simplicity, 
portability, adaptability, and 
educational value. The 
package features a simplified 
macro facility, C language 

| expression operators, object 
file visibility, descriptive error 
messages, and an externally- 
defined machine instruction 
table. You get the macro 
assembler, linkage editor, 
load-and-go loader, library 
manager, CPU configuration 
utility, and a utility to dump 
relocatable files. 

Small-Mac is available 
with documentation for 
$29.95. For CP/M systems 
only. 


Small-Tools: Programs 
for Text Processing 
Item #010A 
A package of programs per- 
forming specific, modular 
operations on text files, 
including: editing; formatting; 
sorting; merging; listing; 
printing; searching; changing; 
transliterating; copying; 
concatenating; encrypting 
and decrypting; replacing 
spaces with tabs and tabs 
with spaces; counting char- 
acters, words, or lines; and 
selecting printer fonts. 
Supplied in source code 
form so you can select and 
adapt these tools to your 
own purposes. 


Small-Tools is available 
with documentation for 
$29.95. For CP/M or MS/PC 
DOS systems. 


Special Packages — 
20% Off 

Now for almost 20% off the 
combined individual product 
prices, you can order a 
complete set of Dr. Dobb’s 

C programming tools for 
your CP/M or MS/PC DOS 
system. 


C Package for CP/M 
Item #005A 


Ordered individually, these 
items would cost about $120. 
If you order the CP/M C 
package, you'll get Dr. Dobb’s 
Toolbook, the Small-C 
Handbook, the Small-C 
Compiler on disk, the Small- 
Mac assembler on disk with 
documentation in the Small- 
Mac Manual, the Small-Tools 
text-processing programs 

on disk with documentation 
in the Small-Tools Manual, 
all for just $99.95. 


C Package for 
MS/PC DOS 
Item #005B 


These items would cost 
over $100 if purchased 


individually. If you order the JA, 





MS/PC DOS C package, 
you'll get Dr. Dobb’s Tool- 
book, the Small-C Handbook 
with the MS/PC DOS 
Addendum, the Small-C 
Compiler on disk, the Small- 
Tools text-processing 
programs on disk with 
documentation in the Small- 
Tools Manual, all for just 
$82.95. 


Dr. Dobbs Sourcebook: 


A Reference Guide to 
the C Programming 
Language 

Item #004 

Products and services for 

C programmers are appear- 

ing at so rapid a rate that it’s 

all but impossible to keep 
up with them. Dr. Dobbs 
presents this handy guide to 
the who, what, when, where, 
and why of C. A compre- 
hensive reference manual to 
new information, products, 
and services, the Sourcebook 
contains: 

e A bibliography of over 300 
articles and books on the 
C language; 

e A descriptive list of prod- 
ucts for C programmers: 
compilers, editors, inter- 
preters, and utilities; 

e A list of C-related services: 
classes, seminars, and 
on-line services. 

The Sourcebook is just $7.95. 
















Dr. Dobb’s Sourcebook: A 
Reference Guide to the 

C Programming Language 
Item #004 $ 7.95 


Dr. Dobb’s Toolbook for C 
Item #005 $29.95 


The Small-C Handbook 
Item #006 $1795 


The Small-C Handbook and 
MS/PC-DOS Addendum 
Item #006A $22.95 


Small-C Compiler disk 
Item #007 $19.95 


Small Tools: Programs for 
Text Processing disk 
Item #010A $29.95 


Small Mac: An Assembler 
for Small-C disk (For CP/M 
only.) 

Item #012A 


CP/M C Package 
Item #00S5A $99.95 


MS/PC DOS C Package 
Item #005B $82.95 


For CP/M disks, please 
specify one of the following 
formats: Apple, Osborne, 
Kaypro, Zenith Z-100 DS/ 
DD, 8” SS/SD. 


To Order: 


To order any of Dr. Dobb's 
products, return the order 
form at the end of this 
catalog, or 

CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 
and refer to product item 
number, title, and disk 
format. 

For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 209 


Wy 


M&T BOOKS 
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A UNIX-like Shell and 
Utility Package for MS-DOS 











save over 15%! 


Includes complete 
source code and 
documentation. 





A UNIX-like Shell 
for MS-DOS and 
A UNIX-like Utility 

Package for MS-DOS 


by Dr. Dobb’s C-Chest 
columnist, ALLEN HOLUB 


The Shell 





of the most often used parts 
of the UNIX C shell. This 
package includes an exe- 
cutable version of the shell, 
along with complete C source 


Supported features are: 
Editing Command line 
editing with the cursors is 
supported. The line is visible 
as you edit it. 

Aliases Can be used 

to change the names of 
commands or as very fast 
memory resident batch files. 
History The ability to 
execute a previous com- 
mand again. The command 
can be edited before being 
executed. 

Shell Variables Macros 

that can be used on the 
command line. 

Nested batch files A batch 
file can call another batch 
file like a subroutine. Control 
is passed to the second file 
and then back to the first 
one when the second file is 
finished. DOS doesn’t have 
this capability. 


An MS-DOS implementation 


code and full documentation. 































UNIX-like syntax Slash .(/ 
used as a directory separator, 
minus (—) as a switch desig- 
nator. A 2048 byte command 
line is supported. Command 
line wild card expansion. 
Multiple commands on 

a line. 












The shell also supports 
redirection of standard 
input, standard output, and 
standard error. 

This version corrects 
several bugs found in the 
Original version printed in 
Dr. Dobb’s Journal, December 
1985 through March 1986 
issues. It runs on any MS- 
DOS computer. 


Add additional features to 
the Shell with 

/util 

A UNIX-like Utility Package 
for MS-DOS 


This collection of utility 
programs for MS-DOS 






































includes updates of the 
highly acclaimed Dr. Dobb’s 
articles Grep: A UNIX-Like 
Generalized Regular Expres- 
sion Processor, Ls from 

Dr. Dobb’s C Chest column, 
and Getargs from DDJ’s 

C Chest. 

Source code is included 
and all programs (and most 
of the utility subroutines) 
are fully documented in a 
UNIX-style manual. You’!l 
find executable versions of: 
cat A file concatenation and 
viewing program 
cp A file copy utility 
date Prints the current time 
and date 
du Prints amount of space 
available and used on a disk 
echo Echoes its arguments 
to standard output 





Only $29.95 each! erep sa has pattern 
os efined by a regular 
Both for only $50 iia 


Ls Gets a sorted directory 
mkdir Creates a directory 
mv Renames a file or 
directory. Moves files to 
another directory. 

p Prints a file, one page at 
a time 

pause Prints a message and 
waits for a response 
printenv Prints all the 
environment variables 

rm Deletes one or more 
files 

rmdir Deletes one or more 
directories 

sub Text substitution utility. 
Replaces all matches of a 
regular expression with 


another string. 

Order The Shell and /util 
together for only $50! 

SAVE OVER 15%! 

Item #160 $29.95 
The Shell 

Item #161 $29.95 
/util 

Item #162 $50.00 
Shell/util Package 

To Order: 

To order any of Dr. Dobb’s 


products, return the order 
form at the end of this 
catalog, or 


CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 
and refer to product item 
number, title, and disk 
format. 

For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 209 


WA 


M&T BOOKS 
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Finally! 
You've Asked For It For 
Years and Here It Is! 


Dr. Dobb's 

Listings On Disk 

Dr. Dobb’s Journal of 
Software Tools has always 
provided its readers with 
valuable code. Now, as a use- 
ful adjunct to the magazine, 
DDJ offers the additional 
value and convenience of 
selected listings on disk! 

Dr. Dobb’s Listings # 186 

is a collection of listings 
from Dr. Dobb’s January 
1986 issue, through the 
April 1986 issue. In this first 


















of three Dr. Dobb’s Listings 
disks for 1986 you’ll find 
listings from the following 
DD J articles, among others. 


From Issue #111 
January 1986 


** 4 Simple OS for Real-time 
Applications; 68000 assembly 
language techniques for an 
operating system kernel by 
DD J editor Nick Turner 

** F’xec calls and Fortran; a 
technique allowing execution 
of a user or system task from 
a user program from DDJ’s 
16-Bit Software Toolbox, 

by Robert Sypek 


Dr. Dobb’s 





Listings On Disk 





** 32-bit Square Roots; An 
8086 assembly-language 
routine for 32-bit square roots 
by Michael Barr 


From Issue #112 
February 1986 


** Fast Integer Powers for 
Pascal; An implementation 
of the fastest-known algorithm 
Jor the computation of integer 
powers by Dennis E. 
Hamilton 
** Data Abstraction with 
Modula-2; Construction of a 
priority queue in Modula-2 
by Bill Walker and Stephen 
Alexander 
** earning Ada on a Micro; 
A draw poker program in Ada 
by Do-While Jones 
** Fast IBM PC graphics 
routines from DDJ’s 16-Bit 
Software Toolbox, by Dan 
Rollins 


From Issue #113 
March 1986 


** Recursive Bose-Nelson 
Sort; An alternative to Joe 
Celko’s September 1985 sort 
routine by R.J. Wissbaum 
** 4 Variable-Metric 
Minimizer; A C program for 
minimizing arbitrary functions 
by Joe Marasco 








** Concurrency and Turbo 
Pascal; An approach to 
implementing coroutines in 
Pascal by Ernest Bergmann 
** Speeding MS DOS Disk 
Access; Programs to test 
disk-access speed by Greg 
Weissman 

** Square Roots on the 
NS32000; Comparable square 
root routines in C and 
assembly language for National 
Semiconductor's 32000 family 
by Richard Campbell 


From Issue #114 

April 1986 

** Boca Raton Inference 
Engine; Lisp, Prolog, and 
Expert-2 techniques and code 
by Robert Brown 


Item #170 $14.95 


Dr. Dobb’s Listings #186 


Please specify MS/DOS, 
Macintosh, or CP/M. For 
CP/M disks, please specify 
one of the following formats: 
Apple, Osborne, Kaypro, 
Zenith Z-100 DS/DD, 

8” SS/SD. 


To order any of Dr. Dobb’s 
products, return the order 
form at the end of this 
catalog, or 


and refer to product item 
number, title, and disk 
format. 

‘For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366-3600 E 


M&T BOOKS 
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David E. Cortesi 
longtime Dr. Dobb's 
columnist and author 
of Inside CP/M 
brings you — 


Dr. Dobb's 
Z80 Toolbook 


Here’s all you need to write 
your own Z80 assembly 
language programs for 
only $25! 


Do you use CP/M? Do you 
feel as if the only part of the 
computer industry that has 
not abandoned you is your 
own Z80 computer? It keeps 
on working, but when you 
need programs for it, you 
have to write them yourself. 
When you do, you quickly 
find that while Pascal or 
BASIC is okay for some 
things, there is often no 
substitute for the speed, 
small size, and flexibility 

of an assembly language 
program. 


Dr. Dobb’s Z80 Toolbook 
puts the power of assembly 
language in the hands of 
anyone who’s done a little 
programming. You'll find: 


Rea Saw 


**A method of designing 
programs and coding them in 
assembly language. Cortesi 
will take you on a walk 
through the initial specifica- 
tions, designing an algorithm 
and writing the code. He 
demonstrates this method 
in the construction of several 
complete, useful programs. 
** A complete, integrated tool- 
kit of subroutines for arith- 
metic, for string-handling, 
an for total control of the 
CP/M file system. They 
bring the ease and power of 
a compiler’s runtime library 
to your assembly language 
work, without a compiler’s 
size and sluggish code. 

Best of all, every line of the 
toolkit’s sorce code is there 
for you to read, and every 
module’s operation is 
explained with the clarity 
and good humor for which 
Dave Cortesi’s writing is 
known. 


See ; % - $ Renae aS 
$3 $ % as 3 $e + x 
~ 53533 oe 


BS 


ec. 





Dr. Dobbs 








Z80 Toolbook 





Order the Z80 
Software on Disk! 
Save Yourself the 
Frustration of 

File Entry 

All the software in Dr. Dobb’s 
780 Toolbook—the programs 
plus the entire toolkit, both 
as source code and as object 
modules for both CP/M 2.2 
and CP/M Plus—is yours on 
disk. (A Z80 microprocessor 
and a Digital Research Inter- 
national RMAC assembler 
or equivalent are required.) 


Receive Dr. Dobb’s Toolbook 


for Z80, along with the 
software on disk, together for 
only $40! 

Item #022 $25 


Dr. Dobb’s Toolbook for Z80 
Item #022A $40 
Dr. Dobb’s Toolbook for Z80, 


together with software on 
disk. Please specify one of 
the following formats: 8” 
SS/SD; Apple; Osborne; 
Kaypro. 


To Order: 


To order any of Dr. Dobb’s 
products, return the order 
form at the end of this 
catalog, or 

CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 
and refer to product item 
number, title, and disk 
format. 

For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 209 


M4 


M&T BOOKS 























Dr.Dobb’s Catalog Order Form 


OR D E R N OW! For Faster Service 
on Credit Card Orders 
SOLD TO: | 6 
Name Call Toll Free 
1 - 7 - 
— (Ponoe usestrect 1-800-528-6050 Ext. 4001 
— Please Refer to Item # When Ordering 
ay Sialte Zp Or, fill out this postage-paid, self mailing order form 
and return to: M&T Publishing, Inc., 501 Galveston Dr., 
DayPhone( Redwood City, CA 94063. 
For disk orders, please indicate format. Refer to ad for standard format availability for each product. 

(J ms/bos 

L] cpm aKaypro Apple —.—ZentthZ-l00DS/DD .—.Osbome 3 SS/5D 

C] Macintosh 

Special formats available for additional $10 per product. Please inquire. 
Quantity Item # Description Price Ea. Total Price 


— 








CA residents add applicable sales tax on merchandise total ___ 
(CA residents must add tax to all items EXCEPT Dr. Dobb’s Sourcebook, Item #004) ——p> 


Shipping must be included with order Scorn sh _—_—_—_—_—_—_———Ol."> 


Name on Card 
LI Check LJ visa oe 
Make checks payable to C] MasterCard = 
M&T Publishing, Inc. Expiration Date 
C] American Express 
Signature 


In U.S. For Bound Volumes, add $2.25 per book. Add $8.75 for special 
C Packages. For other books and disks, add $1.75 per item. 


Outside U.S. For Bound Volumes, add $5.25 per book surface mail. Add Prompt Delivery! 
$18 surface mail for Special C Packages. For other books and disks, add ed Sd 
$3.25 per item surface mail. Foreign airmail rates available on request. Dea ler | nquiries Welcome maT BooKs 
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Dr.Dobhb’s Catalog Order 


Please Rush! 


Please fold along fold-line and staple or tape closed. 


BUSINESS REPLY MAIL 


First Class Permit No. 790 Redwood City, CA 
Postage Will Be Paid By Addressee 


Dr.Dobb’s Catalog 


501 Galveston Dr. 
Redwood City, CA 94063 


Please fold along fold-line and staple or tape closed. 
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C CHEST 


Listing One (Listing continued, text begins on page 22.) 


388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
4CO 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 


424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 


if( *lv = malloc(strlen(buf) + 1) ) 
{ 

strcpy( *lv++, buf ); 

*buf = '\0'; 

Linec++; 


else 
return 1; 
} 


return( maxcount <0 ); /* Return 1 if there's more input to get */ 


*fname( num ) 


/* Return a merge file name for the indicated merge pass. 
=F 


static char name[{ 16 ]; 

if ( num > MAXTMP ) 

{ 
fprintf(stderr,“sort: input file too large\n" ); 
exit (1); 

} 


sprintf(name, “%smerge.%d", Mdir, num ); 
return( name ); 


outtext ( passnum, more to go ) 
423 { 


/* Print out all the strings in the Lines array and free all 
* the memory that they use. Output is sent to standard 

* output if this is pass 1 and there's no more input 

* to process, otherwise output is sent to a merge file. 


register char 
register FILE 


**lv; 
*fo7 


if( passnum == 1 && !more to go ) 
fp = stdout; 

else if( !(fp = fopen( fname(passnum), “w" )) ) 

{ 
fprintf(stderr,"Can't open merge file ts for write\n", 

fname (passnum) ) ; 

exit (1)? 

} 


for( lv = Lines ; --Linec >= 0; ) 


fputs( *lv, 


tp ); 
free ( *lvt++ de 
} 


fclose( fp )?; 


open_mergefiles( nfiles ) 


/* Open all the merge files and create the heap. “nfiles” 
* merge-files exist and the heap will have that many 


* elements in it. The heap is unsorted on exit. 


**hp; 
int is 
for( hp = Heap, i = nfiles; 


4: > 0; hpt++, --i ) 


if( ! (*hp = (HEAP *) malloc(sizeof (HEAP))) ) 

{ 
fprintf( stderr, “sort: out of memory!" ); 
exit( 1 );7 

} 


if( !({ (*hp)->file = fopen( fname(i), “r") )) 
{ 
fprintf(stderr,"sort: can't open ts for read", 
fname (i) )?7 
exit( 1 ); 
} 


if( !fgets( (*hp)->string, MAXBUF, (*hp)->file ) ) 
{ 


(continued on next page) 
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Number One 
in Performance 


68010/68000 


Coprocessor for 
IBM/AT/XT/PC- 
8/10/12.5mz No Wait States 


$1295” ary. 1 


FEATURES 
e 1-2 MB RAM (1MB Standard) 
e 16K-64K EPROM 
e 2-8 Serial Ports 
Async/Sync/Bisync Communications 
e Battery-backed Real Time Clock 
e Battery-backed 2K-8K RAM 
e 2 Parallel Ports 
e 68881 Math Coprocessor 
e Memory-mapped Dual-port BUS 
e 3-9 Users Per Board (3 Standard) 
e Up To 16 Boards Per AT/XT/PC 
e Can Operate As Standalone Processor 
SOFTWARE 
e 0S9 (Powerful UNIX-like Multi-user 0S) 
e CPM/68K 
e Software selectable OS including concurrent 
PC DOS/OS-9 or CPM/68K operation 
e Support Module for IBM Graphics 
e High-speed Local/Global Disk Caching 
© Basic, Pascal, Fortran, C, and COBOL 


IBM 1s a registered trademark of international Business Machines 
OS-9is a registered trademark of Microware Systems Corp /CPM/68K 1s a registered trademark of Digital Research Corp 
MxGS000/ MGSO 10 are registered trademarks of Motorola /UNIX 1s a registered trademark of AT&T 


TLM Systems 


West: 4704 W. Jennifer, Suite 105, Fresno, CA 93711, 209/276-2345 
East: 67 Grandview, Pleasantville, NY 10570, 914/747-1450 
Distributor: Telemarketing Services, Inc. 

1897 Garden Ave., Eugene, OR 97403, 503/345-7395 


Circle no. 173 on reader service card. 
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é Thinking 
about 
C? 






















Stop Thinking- 
Start Programming Today! 


SPECIAL INTRODUCTORY OFFER! 
C’ Prime, Personal Computing and C, 


Plus Apprentice C. 
A $169 value only 


$99 





NEW FROM MANX AZTEC! 
C’ Prime 3 $79 


Never has C been easier to learn. 
Manx Aztec is now offering a com- 
plete C system called C’ Prime at an 
exceptionally low price. This powerful 
system includes a Compiler, Linker, 
Assembler, Editor, Libraries and Ob- 
ject Librarian. C PRIME supports a 
host of third-party software. 


C Apprentice $4995 $39.95 


Learn C quickly with this complete, 
easy-to-use C language interpreter. 
Apprentice C includes a complete one- 
step compiler that executes with lightn- 
ing speed, an editor, and a 

run-time system. 


NEW FROM ASHTON-TATE! 
Personal Computing and C 


. A detailed, easy-to-understand guide to 
C programming prepared especially by 
Ashton-Tate for use with the new 
Aztec C’ Prime. Includes chapters on 
C programming basics, function 
libraries, data handling, and advanced 
features, plus a complete money man- 
agement demonstration program. 


1 800-TEC- WARE 


(In NJ call 201-530-6307) 






UNIX 1s a regstered TM of Bell Laboratones. dBase TM Aston Tate. Inc. MANX AZTEC. C PRIME. 
Apprentice © TM Manx Software Systems. Inc 


Circle no. 222 on reader service card. 
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Listing One (Listing continued, text begins on page 22.) 


482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
906 
$07 


mamp ( hpp1, 
HEAP 


return Options 


reheap( nfiles ) 


508 { 


509 
510 
511 
512 
513 
514 
915 
516 
517 
318 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 


/* 


* 


*/ 


register int 


fprintf (stderr,"sort: merge file %s is empty", 
fname (i) ); 
exit( 1 ); 


hpp2 ) 
**hppl, **hpp2; 


Comparison routine for sorting the heap. Is passed 
two pointers to HEAP pointers and compares the 
string fields of these using the same workhorse 
functions used in the initial sorting phase. 


(*hpp2) ->string) 
(*hpp2) ->string) 


2 qcempl ((*hppl)->string, 
: stremp ((*hppl)->string, 


Reheap the Heap, assume that the first element (**Heap) 
is the newly added one. 


parent, child; 
*tmp; 


for( parent = 0, child = 1; child < nfiles; ) 
{ 


merge( nfiles ) 
nfiles; 


int 
{ 


/* Find the smaller child. Then if the parent is less 
* than the smaller child, we're done. Otherwise 

* Swap the parent and child, and continue the 

* reheaping process with a new parent. 

sai 4 


if( child+l < nfiles ) /* if child+l is in the heap */ 
if ( momp(&Heap[child], &Heap[child+1]) > 0) 
child++; 


if( mamp( &Heap[parent], &Heap[child]) <= 0) 
break; 
tmp = Heap[parent]; 


Heap(parent}] = Heap[child ]; 
Heap[child ] = tmp; 


/* Exchange */ 


parent = child; 


child = parent << 1; /* child = parent * 2 */ 


/* Number of merge files s/ 


open _mergefiles( nfiles ); 
ssort ( Heap, nfiles, sizeof(Heap[0}), mcmp ); 


while( nfiles > 0 ) 
{ 


pheap( “Merge: top of while loop", nfiles ); 


fputs ( (*Heap)->string, stdout ); 
sy ! fgets ((*Heap) ->string, MAXBUF, (*Heap)->file) ) 


/* This input stream is exhausted. Reduce the 
* heap size to compensate. Note that Heap+1 
* is the same as &Heap[1]; 

“7 


fclose( (*Heap)->file ); 
if( --nfiles ) 


: memcpy (Heap, Heapt+l, nfiles * sizeof (HEAP)); 


reheap( nfiles ); 


Adjust various default arguments to fix mistakes made 

on the command line. In particular Delim is always 0 
unless either Primary or Secondary was set. 

If a secondary field is specified without a Primary, then 
1 is assumed for the primary. If no Delim is specified 
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579 * then tab (\t) is assumed. “Options” is true if any of 
580 * the options that affect the sort order were specified 
581 * on the command line. 

582 i 

583 

584 if( ! (Primary || Secondary) ) 

585 Delim = 0; 

586 else 

587 { 

588 if( !Delim ) 

589 Delim = '\t'; 

590 

591 if( !Primary ) 

592 Primary = 1; 

593 } 

594 

595 Options = Noblanks || Numeric || Dictorder || Foldupper 


596 || Reverse || Delim; 
597 } 


598 

SQ Ym a ee */ 
600 

601 main(argc, argv) 

602 int argc; 

603 char ** argv; 

604 { 

605 int numpasses = 0; /* Number of merge files used =f 
606 int more input; /* True if input isn't exhausted */ 


608 Arge = getargs( argc, argv, Argtab, NUMARGS ); 
609 Argv = argv; 

610 adjust _args(); 

611 

612 do { 

613 more input = gtext (); 

614 

615 if( Linec ) 


o ber O 
617 ssort (Lines, Linec, sizeof (*Lines), Num er ne 
618 Options ? qanp : argvamp); 


ss set etons.) in Performance 


Linec = dedupe(Linec, Lines) ; 
621 


622 outtext ( ++numpasses, more input );7 we 

623 i Hard Disk 
624 r is 
625 } while( more input ); 


cia 
626 Intelligent 
628 if( numpasses > 1 ) /* merge files were created */ 
Bed VCR Backup 
630 fclose( stdin ); /* Free up default file des- */ 
631 fclose({ stdaux ); /* criptors for unused streams */ 
632 fclose( stdprn ); /* so that they can be used for */ for AT/XT/PC 
633 /* merge files. *7 
634 merge ( numpasses ); 
635 


636 for(; numpasses > 0 ; --numpasses ) FEATURES 
637 unlink { fname (numpasses) )?; 


638 e High speed microprocessor 


640 exit (0) ; controlled backup (68000) 
teak antec wees 3 e Two channel interface 


e Built in LAN channel 
End Listing One e Software control of most VCR 


functions including Fast Forward, 
Rewind, and auto backup using VCR 





Listing Two 


1 #include <ctype.h> timer capabilities 
2 5 
3 int stoi (instr) e Economical VHS or Beta formats 
4 register char **instr; 
a4 
6 /* Convert string to integer updating *instr to point 
7 * past the number. Return the integer value represented 
8 * by the string. 
9 “7 
10 
11 register int num = 0; 
12 register char *str : 
13 int sign =1; 
14 
i str = *instr; 
16 
«x wm ‘'..*% 
Bete = TLM Systems 
19 sign = -1 ;7 
20 strt+t; 
2 } 
22 
23 while( ‘0’ <= *str && *str <= ‘9° ) 
24 num = (num * 10) + (*str++ - 'O') ; 
25 
26 *instr = str; 
’ t: 4704 W. Jennifer, Suite 105, Fresno, CA 93711, 209/276-2345 
a Ee ee ae ee East: 67 Grandview. Pleasantville, NY 10870, 914/747-1450 


Distributor: Telemarketing Services, Inc. 
1897 Garden Ave., Eugene, OR 97403, 503/345-7395 


End Listings 
Circle no. 174 on reader service card. 
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COMBINE THE 
RAW POWER OF FORTH 
WITH THE CONVENIENCE 
OF CONVENTIONAL LANGUAGES 


HS 
FORTH 


Why HS/FORTH? Not for speed 
alone, although it is twice as fast as 
other full memory Forths, with near 
assembly language performance 
when optimized. Not even because 
it gives MANY more functions per 
byte than any other Forth. Not be- 
Cause you can run all DOS com- 
mands plus COM and EXE programs 
from within HS/FORTH. Not be- 
Cause you Can single step, trace, de- 
compile & dissassemble. Not for the 
complete syntax checking 8086/ 
8087/80186 assembler & optimizer. 
Nor for the fast 9 digit software float- 
ing point or lightning 18 digit 8087 
math pack. Not for the half mega- 
byte LINEAR address space for 
quick access arrays. Not for com- 
plete music, sound effects & graph- 
ics support. Nor the efficient string 
functions. Not for unrivaled disk flex- 
ibility — including traditional Forth 
screens (sectored or in files) or free 
format files, all with full screen edi- 
tors. Not even because |/O is as 
easy, but far more powerful, than 
even Basic. Just redirect the charac- 
ter input and/ or output stream any- 
where — display, keyboard, printer 
or com port, file, or even a memory 
buffer. You could even transfer con- 
trol of your entire computer to a 
terminal thousands of miles away 
with a simple >COM <COM pair. 
Even though a few of these reasons 
might be sufficient, the real reason 
is that we don’t avoid the objections 
to Forth — WE ELIMINATE THEM! 


Public domain products may be 
cheap; but your time isn’t. Don't 
shortchange yourself. Use the best. 
Use it now! 


HS/FORTH, complete system: $395. 
with “FORTH: A Text & Reference” 
by Kelly and Spies, Prentice-Hall 
and “The HS/FORTH Supplement” 
by Kelly and Callahan 


“oe Visa Mastercard 


HARVARD 
SOFTWORKS 


PO BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 
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LINE GLITCHES 


Listing One (Text begins on page 32.) 


/* 
* short demo program to illustrate Hamming forward error correction 
* code detects and corrects all one bit errors and detects two 
* bit errors in a total transmitted block of 16 bits. 
* eleven bits are message bits, the rest are error checks 
* 
* implementation is oriented toward exposition, not speed or 
* efficiency -- this is not industrial strength code! 
* 
* bit fields not implemented in C/80 
* 
* Joe Marasco, March 1986 
=7 
#include "fprintf.h" 
#define EOF -1 
#define BO 1 
#define Bl 2 
#define B2 4 
#define B3 8 
#define B4 16 
#define BS 32 
#define B6 64 
#define B7 128 
#define B8 256 
#define B9 SL2 
#define B10 1024 
#define Bll 2048 
#define B12 4096 
#define B13 8192 
#define B14 16384 
#define B15 32768 
#define cl} (Bl + B3 + BS + B7 + B9 + Bll + B13 + B15) 
#define C2 (B2 + B3 + B6 + B7 + B1O + Bll + B14 + B15) 
#define Ca (B4 + BS + B6 + B7 + B12 + B13 + B14 + B15) 
#define C4 (B8 + B9 + B10 + Bll + B12 + B13 + B14 + B15) 
main () 
{ 
int input [11] ; /* input message bits */ 
register unsigned int xmit ; /* transmitted message */ 
int recvd[16] ; /* received message bits*/ 
register unsigned int rec ; /* received message */ 
int syndrome ; /* computed syndrome “yf 
int recpar ; /* parity of rec'd msg */ 
int ye, - th 3 
For: 523-4 


printf ("input 11 message bits, *C to quit\n") ; 
DELHEL (1 2:34 -5°6°7° 8 9-0. 14n"*) -: 


im 0.5 
while ( ((ch = getchar()) != EOF) && i<ll ) 
Switch(ch) { 
case '0' : input [i++] =0:; 
break ; 
case 'l' : input [i++] =1; 
break ; 


} 
/* 
* anything but a 0 or 1 is ignored 
* check that we have 11 good bits 


a 
ret 35 33434 
printf("not enough valid bits, try again\n") ; 
continue ; 
f= 
* build the message 
*7 
xmit = 0; 
xmit |= input[0] << 3 ; 
xmit |= input[1] << 5 ; 
xmit |= input[2] << 6: 
xmit |= input[3] << 7: 
xmit |= input[4] << 9; 
xmit |= input[5] << 10 ; 
xmit |= input[6] << 11; 
xmit |= input[7] << 12; 
xmit |= input[8] << 13 ; 
xmit |= input[9] << 14 ; 
xmit |= input[10] << 15; 
/* 
* and the check bits -—- even parity 
8g 
xmit |= (parity( Cl & xmit ) << 1) | 


(parity( C2 & xmit ) << 2) | 

(parity( C3 & xmit ) << 4) | 

(parity( C4 & xmit ) << 8) ; 7 

(continued on page 86) 
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The Best 
Debugegers. 


Period. 


DSD86, The PC-DOS Debugger .............055. 69.95 
DSD87, The PC-DOS Debugger with 8087 Support. 99.95 
DSD80; The CPIM Debugger...) io. vee cots 








P.O. Box 49473 Austin, Texas 78765 @ (512) 478-4763 
1-800-232-8088 






Circle no. 83 on reader service card. 


Brand New From Peter Norton 


A PROGRAMMER’S EDITOR 


that’s lightning fast with the hot 
features programmers need 


eae E I’d had when | wrote my 
Norton Utilities. You can 
program your way to 
glory with The Norton 
Editor.” 
TM : ow 





**T his is the program- 





Direct from the 
man who gave you 
The Norton Utilities, 
Inside the IBM PC, 
and the Peter Norton 
Programmer's Guide. 


Santa Monica, CA 90403, 213-453-236 1. Visa, 
Mastercard and phone orders welcome. 


The Norton Editor™ is a trademark of Peter Norton Computing, Inc. € 1986 Peter Norton Computing 


Circle no. 243 on reader service card. 











Number One 
in Performance 





IBM/AT/XT/PC- 8mz 
No Wait States 


FEATURES 


e 64K-256K RAM 
e 2K-8K EPROM/Static Ram 
e 2 Serial Ports 

Async/Sync/Bisync Communications 
e Real Time Clock 
e Memory-mapped Dual-port BUS 
e On-board/Remote Reset NMi capability 
e Up To 32 Boards Per AT/XT/PC 
e Can Operate As Standalone Processor 
e Less Than Full Size Board 

(will fit other compatables.) 


SOFTWARE 


e ZP/Mtm CP/M Emulation Software 
(Supports Most CP/M Software) 

e Multiuser Capability if Used As A 
Slave Processor 


iBM is a registered trademark of intermational Business Machines 
CPM /801s a registered trademark of Digital Research Corp 


TLM Systems 


West: 4704 W. Jennifer, Suite 105, Fresno, CA 93711, 209/276-2345 
East: 67 Grandview, Pleasantville, NY 10570, 914/747-1450 
Distributor: Telemarketing Services, Inc. 

1897 Garden Ave.. Eugene. OR 97403, 503/345-7395 


Circle no. 175 on reader service card. 


85 


LINE GLITCHES 


Li sting One (Listing continued, text begins on page 32.) 


/* 
* and last but not least, make total parity even 
=e 
xmit |= parity( xmit ) ; 
/* 
* display it 
¥7 
printf (“the block sent is 4x \n",. sanit =): 
printf£("0 123 45 6 7: 6°9'0.1-2:3-4 S\n") = 
for (i=O ; 1<16 ; ++i) 
printf("%d ", ((xmit>>i) & 01) ) ; 
printt ("\n")-> 
printf (“now input the received block\n") ; 
Brae (8O> 22:3 A: 56-7: BS 0 YF 23 Sn 
/* 
* get the received message 
&7 
readagain: 1=0; 
while ( ((ch = getchar()) != EOF) && i<16 ) 
switch(ch) { 
case ‘0' ;: recvd[it+] =0; 
break ; 
Case °*i" +s recvd[it+t+] =1; 
break ; 
} 
/* 


* anything but a 0 or 1 is ignored 
* check that we have 16 good bits 


wtf 
$0 1 16-)-4 
printf("not enough valid bits, try again\n") ; 
goto readagain ; 
} 
for (i=0 , rec=0 ; 1<16 ; ++i ) 
rec |= (recvd{i] << i) ; 
printf ("the block received is x \n", rec ) ; 
/* 
* compute the syndrome 
¥F 
syndrome =  parity( Cl & rec) | 
( parity( C2 & rec) << 1) | 
( parity( C3 & rec ) << 2) | 
( parity ¢-C4 € rec ) << 3}: 
/* 
* and the parity bit, which should be zero 
es 
recpar = parity( rec ) ; 
/* 
* decision time 
Py: 


if ( syndro == 0 ) 

printf ("good message!\n") ; 

if (recpar) { 
printf("with reversed parity bit\n") ; 
rec = rec * 01 ; 
printf ("the recovered block is $x\n", 

rec}: 
printtt") 32-3. 4°5: 6 7.8-9$ 0-12.34 SA 
for (1=0 ; i<16 ; ++i) 
printf("td ", ((rec>>i) & 01) ) ; 

printf ("\n") ; 


pri ner {* won - -- - -- -- - -- ---\" ): 
else { 


if (!recpar) { 
printf ("two bit errors, can't fix\n") ; 


print f ("-------------------------------- \n") 3 
} 
else { 
printf ("bad bit in position %d\n", 
syndrome ) ; 
rec = rec “ ( 01 << syndrome ) ; 
printf (“the recovered block is $x\n", 
rec: } > 
printf("012345678901234 5\n") + 
for (i=O ; i<16 ; ++i) 
printf("td ", ((rec>>i) & 01) ) ; 
print f ("\n-------------------------------\n") ; 
} 
} 
} 
} 
parity( message ) 
unsigned int message ; 
* return 1 if odd parity, 0 if even 
=/ 
tne 5 =, 2 
for ( j=0 , k=0 =; j<16 = ++} ) k += ( (message >> 4) & O01) ; 
return( k & 01) ; 
} End Listing 
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Betcha our compiler can 


beat up your compiler. 


If you program in BASIC, 
Pascal, Fortran or C, 
youre using yesterday's 


technology. We know this state- 
ment will start a brawl, but it’s true. 
So, before you start a fight you can’t 
win, take a closer look at the Modula-2 
language and the Modula-2 Software 
Development System (M2SDS) from 
Interface Technologies. Just compare 
the features and performance of 
M2SDS to your system. You'll find a 
new language and a programming 
environment that’s more flexible, 
much faster and works on any IBM“ 
PC or 100% compatible with 256 K 
memory or more. 




















M2SDS 

COMPILE SPEED (MIN:SEC) 

30 LINES 0:15.58 

300 LINES 0:25.48 
EXECUTION SPEED (MIN:SEC) 

SIEVE 0:13.92 

FIBONACCI 0:53.49 

30X30 MATRIX (8087) 0:08.84 

FP OPERATIONS 0:27.56 

FP OPERATIONS (8087) | _ 0:01.97 
SYNTAX CHECKING EDITOR is. | 
MULTIPLE WINDOW EDITING YES 
EDITOR FILESIZE LIMIT MEMORY SIZE 
COMPILE ERROR CALLS EDITOR YES 
LINKER YES 
PRODUCES .EXE FILES YES 
EXECUTABLE CODE SIZE LIMIT | DISK SPACE 
DOS ACCESS FROM EDITOR YES 
DOS ACCESS FROM PROGRAMS YES 
8087 SUPPORT STANDARD YES 
COPY-PROTECTED DISK NO 
COST WITH 8087 SUPPORT $50.88/$80.88 


Source:.Software Resources, Inc.‘Sieve program from BYTE, 
January 1983. Fibonacci program from Dr. Dobb’s Journal, 
February 1985. Matrix program from BYTE, October, 1982. FP 
Operations program from BYTE, May 1985. M2SDS with or without 
8087 uses 8-byte accuracy. Programs compiled with all checking 
options on. All tests conducted on a standard IBM-PC/XT with 512K 
of memory and an 8087 math coprocessor. 


* Original or back-up diskette may be sent for trade-in. Diskette will 
be destroyed immediately upon receipt so that your current compiler 
license agreement is not violated. 


IBM is a registered trademark of International Business Machines 
Corporation. 


Or your money back. 





Trade In and Trade Up. Just 
to prove that we’re not all brag... 
we'll send you M2SDS for just $50.88 
if you mail us your present compiler 
or interpreter diskette.* That’s $30.00 
off the regular price. If within 30 

days you’re not programming faster 
than ever, just return the diskette and 
we ll send you your money back. 


Heavyweight Champion 
SDS-XP. If you’re ready to move 
into light-speed, you need SDS-XP. 
It has everything M2SDS has with a 
little “punch” added. Like Extended 
Libraries, M2MAKE and a Foreign 
Object Module Importer. SDS-XP 
offers buyers a stout discount when 
compared with the cost of buying 
M2SDS and the additional compo- 
nents as add-ons. For a limited time 
only, SDS-XP is available for $99.00 
with compiler trade-in. That’s $150.00 
off the advertised price of $249.00. 


INTERFACE 
TECHNOLOGIES 


3336 Richmond, Suite 200, Houston, TX 77098 


1-800-922-9049 


(In Texas, call 713/523-8422) Telex: 322127 
In Europe call ITC at: Switzerland 41 (1) 700-3037; 
Netherlands:31 (20) 106922; U.K. 44 (1) 656-7333 
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Knock Out Bugs $79.95. 
Announcing M2DEBUG. A symbolic, 
compact (only 20K RAM) interactive 
run-time debugger with features 
most requested by software pro- 
grammers and system developers. 

It comes with a Virtual Resource 
Overlay Operating Manager (VROOM) 
that speeds up compile time 50%. 


Calling All Compilers. So now 
that you’re wise to the limitations of 
your system, why not trade it in. You'll 
soon see that it was smarter to switch 
than fight. And a pretty safe bet. 


ie ee ee E 


ere’s my diskette. Rush me: 
(J M2SDS for $50.88 each, plus $7 shipping 
and handling. 


LC SDS-XP for $99.00 each, plus $7 shipping 
and handling. 


Or, send me: 

_] M2SDS for $80.88 each, plus $7 shipping 
and handling. 

1 SDS-XP for $249.00 each, plus $7 ship- 
ping and handling. 

_] M2DEBUG for $79.95 


L) My check is enclosed. 
CJ Apply charges to credit card indicated 
below: 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| VISA/MasterCard/American Express 
| (circle one). 
Credit Card # 
| Expiration Date 
| Signature 

| 

| 

| 

| 

| 

| 

| 

| 

| 


Name 
(please print) 


Shipping Address 


City 
State/Zip 
Day Phone 


Texas residents add 6.125% Sales Tax. 

International orders add $30 for shipping/handling. 
If paying by check, check or draft must be in 

U.S. dollars drawn on a U.S. bank. 


INTERFACE TECHNOLOGIES CORPORATION 
3336 Richmond, Suite 200, Houston, Texas 77098 


fe hme tn re oe ae eee ame 





TVLIW NID e 





helps save time, money and cuts frustrations. Compare, evaluate, and find products. 





RECENT DISCOVERY 


PC Scheme - by T.I. Interactive LISP which 
uses lexical scoping, block structure, call 
by value, and tail-recursive semantics. 
Compiler, EMACS-like editor, DOS. 


Can support debugging, graphics, 
windowing. PC $ 95 


Al-Expert System Dev’t 


Arity System - incorporate with C 
programs, rule & inheritance 
Experteach - Powerful, no limit on 
memory size. Samples PC $399 
EXSYS - Improved. Debug, file & 
external program access. MS $339 


PC $295 


Ist Class - by example, interfaces $250 
Insight | - probabilities, fast MS $ 79 
Insight 2 - dB2, language. MS $399 


Others: APES ($359), Advisor ($949), 
ES Construction ($100), ESP ($845), 
Expert Choice ($449) 


GC LISP Interpreter - “Common”, 

rich. Interactive tutorial $495 Call 
GC LISP 286 Developer - 2 to 15 meg 

RAM, compiler & interp. $1195 Call 
Microsoft MuLisp 85 $199 
TLC LISP - “LISP-Machine’” - 

like, all RAM, classes, compiler. MS $225 
TransLISP - learn fast MS $ 75 
WALTZ LISP - “FRANZ LISP” - 

like, big nums, debug, CPM-80 MS $149 
Others: IQ LISP ($155), BYSO ($125) 
UNX LISP ($59), IQC LISP ($269) 


Al-Prolog 


ARITY Standard - full, 4 Meg 
Interpreter - debug, C, ASM PC $ 350 
COMPILER/Interpreter-EXE PC $ 795 
With Exp Sys, Screen - KIT PC $1250 


List Our 


MicroProlog - enhanced MS $ 229 
MProlog - Improved, Faster PC $ 475 
Professional MicroProlog MS $ 359 


Prolog-86 - Learn Fast, Standard, 

tutorials, samples MS $ 95 
TURBO PROLOG by Borland PC $ 85 
Others: Prolog-I ($365), Prolog-2 ($1795) 


Al-Other 


METHODS - SMALLTALK has 
objects, windows, more PC $215 
QNIAL - Combines APL with LISP. 
Source or binary. PC $375 


FEATURES 


Dan Bricklin’s Demo Program 
Prototype quickly. User feedback 
without programming. All 250 
ASCII characters plus attributes. 
Subsetting, macros. i a 


BetterBASIC - allRAM, modules, 


Structure. Full BASICA PC $169 
8087 Math Support PC $ 89 
Run-time module PC $235 








Free Literature 
Compare Products 
Evaluate products. Compare competitors. Learn 
about new alternatives. One free call brings infor- 
mation on just about any programming need. Ask 
for any “Packet” or Addon Packet 0 AIO ADA, 
Modula 0 BASIC O“C” O COBOL 0 Editors 
O FORTH © FORTRAN 0 PASCAL O UNIX/PC 
or 0 Debuggers, Linkers. 
Our Services: 
* Programmer’s Referral List 
* Compare Products 
* Help find a Publisher 
+ Evalaation Literature FREE 
* BBS-7 PM to7 AM617-826-4886 = + National Accounts Center 


ACTIVE TRACE Debugger - 

BASICA, MBASIC, well liked MS $ 79 
APC MegaBASIC - powerful PC $339 
BASIC DEVELOPMENT SYSTEM - 

(BDS) for BASICA; Adds Renum. 

crossref, compress. PC $105 
Basic Windows by Syscom PG $95 
CADSAM FILE SYSTEM - full 

ISAM in MBASIC source. MS $ 75 
Prof. Basic - Interactive, debug PC $ 79 

8087 Math Support PC $ 47 
QuickBASIC by Microsoft - Compiles 

full IBM BASICA, 640K PC $ 79 
TRUE Basic - ANSI PC $119 

Run-time Module PC $459 


Macintosh COBOL - full MAC $459 
MBP - Lev. II, native MS $885 
MicroFocus Professional - full PC Call 
Microsoft Version II - upgraded. 

Full Lev. II, native, screens. MS $495 
Realia - very fast MS $929 
Ryan McFarland - portable MS $699 


Editors for Programming 


BRIEF Programmer’s Editor - undo, 
windows, reconfigure PC Call 
C Screen with source 80/86 $ 75 
EMACS by UniPress - powerful, 
multifile, windows Source:$949 $299 
Epsilon - like EMACS, full 
C-like language for macros. 
FirsTime by Spruce - Improve 
productivity. Syntax directed for 
Turbo ($69), Pascal ($229), or C ($239) 
Kedit - like XEDIT PC $115 
Lattice Screen Editor - multiwindow, 
multitasking Amiga $100 MS $125 
PMATE - power, multitask 80/86 $159 
VEDIT - well liked, macros, 
buffers CPM-80-86 MS $119 
XTC - multitasking PC $ 85 


Atari ST & Amiga 


We carry full lines of Manx, 
Lattice, Metacompco & Prospero. 


PC $169 





Cambridge LISP Amiga $200 
Lattice C Atari ST $139 
Lattice Text Utilities Amiga $ 75 
LINT by Gimpel Amiga $ 89 
Megamax - tight, full Atari ST $179 


We support MSDOS (not just compatibles), PCDOS, Xenix-86, CPM-80, Macintosh, Atari ST, and Amiga. 


Circle no. 141 on reader service card. 


RECENT DISCOVERY 


dBASE Tools for C - incorporate C 
functions as extensions to dBASE III 
Plus. Also functions for business 
graphics, arrays, math, statistics. 
MS C, Lattice Aztec. PCGraphics $ 79 
Tools $ 79 


C Language-Compilers 


AZTEC C86 - Commercial PC $499 
AZTEC C85 - Personal Apple II $199 
C86 by CI - 8087, reliable MS $299 


Consulair Mac C w/toolkit MAC $299 
Lattice C - from Lifeboat MS $289 
Lattice C - from Lattice MS $339 
Mark Williams - w/debugger MS $399 
Microsoft C 3.0 - new MS $259 


Q/C 88 by Code Works - Compiler 

source, decent code, native MS $125 
Wizard C - Lattice C compatible, 

full sys. III, lint, fast. MS $389 


C Language-Interpreters 


C-terp by Gimpel-fullK &R = MS $249 
INSTANT C - Source debug, 
Edit to Run-3 seconds MS $399 
Interactive C by IMPACC Assoc. 
Interpreter, editor, source, debug. PC $225 
Introducing C - self paced tutorial PC $109 


Professional Run/C - Run/C plus 
create add-in libraries, more 
Run/C - improved 


C Libraries-General 


Application Programmer’s Toolkit MS $375 
Blaise C Tools | ($109), C Tools 2 $ 89 
C Food by Lattice-ask forsource MS $109 
C Utilities by Essential - Comprehensive 
screen graphics, strings, source. PC $139 
C Worthy Library - Complete, machine 
independent, source MS $295 
Entelekon C Function Library PC $119 
Entelekon Superfonts for C PC 3-45 
Greenleaf Functions - portable, ASM $139 
Polytron - for Lattice, ASM source $ 85 
Software Horizons - Pack I PC $129 


C Libraries-Communications 


MS $199 
MS $109 


Asynch by Blaise PC $149 
Greenleaf - full, fast PC $139 
Software Horizons - pack 3 PC $119 


C Libraries-Files 


FILES: C Index by Trio - full B + 


Tree, vary length field, multi compiler 


/File is object only MS $ 89 
/Plus is full source MS $349 
C to dBase - with source MS $139 


CBTREE - multiuser record locking, 
sequential, source, no royalties MS $ 99 
dbc Isam by Lattice MS $199 
dbVISTA - full indexing, plus optional 
record types, pointers, Network. 
Object only - MS C, LAT, (C86 $159 
Source - Single user MS $429 
Source - Multiuser MS $849 








THE PROGRAMMERS SHOP 





provides complete information, advice, guarantees and every product for Microcomputer Programming. 








ORDER TODAY 
SPECIAL PRICE 


C Support-Systems 


Basic-C Library by C Source PC $139 
CPRINT - by ENSCO MS $ 45 
C Sharp - well supported. Source, 
realtime, tasks MS $600 
C ToolSet - DIFF, xref, source MS $135 
Lattice Text Utilities MS $105 


The HAMMER by OES Systems PC $179 

PC LINT - Checker MS $125 

SECURITY LIB - add encrypt to MS C, 
C86 programs. Source $250 PC $125 


C-Screens, Windows, Graphics 


Curses by Lattice PC $109 
C Power Windows by Entelekon PC $119 


C Windows by Syscom PC $ 89 
ESSENTIAL GRAPHICS - fast, 

fonts, no royalties PC $219 
GraphiC - source in C PC $219 


Topview Toolbasket by Lattice PC $209 


View Manager for C by Blaise PC $219 
Windows for C - fast PC $149 
Windows for Data - validation PC $259 

Debuggers 
Advanced Trace-86 by Morgan 

Modify ASM code on fly. PC $149 
CODESMITH - visual, modify 

and rewrite Assembler PC $109 
C SPRITE - data structures PC $139 
Periscope I - own 16K PC $269 
Periscope II - symbolic, “Reset 

Box,” 2 Screen PC. S129 


Pfix-86 Plus Symbolic Debugger 
by Phoenix - windows 
Software Source by Atron - 
Lattice; MS C, Pascal, Windows 
single step, 2 screen, log file. MS $115 
w/Breakswitch $199 


FEATURES 


dBrief, the dBASE Assistant - optional 
syntax directed editing, screen gen, 
graphics, speed coding. dBASE ITI, Il. 
Clipper. PC $ 95 


PC $289 


Microsoft Cobol Tools - symbolic, 
windowing debugger w/source support. 
Plus cross reference. Menu Handler, 
mouse support. PC $310 











NEW HOURS 
8:30 AM - 8:00 PM EST. 


ad for a special price of 
ORDER AFTER 6/30/86 for 







C-TREE by Faircom - portable, 


stable, thorough, balanced 
Btree file manager with 
source. MSDOS 


List $395 
ORDER BEFORE 6/30/86 and mention this 


$289. 
$349. 


Fortran & Supporting 


ACS Time Series MS $469 
Forlib + by Alpha - graphics and 

file routines, comm. M 
MACFortran by Microsoft - full 

‘77. Includes ASM output MAC $229 
MS Fortran MS $219 
No Limit - Fortran Scientific PC $129 
PolyFortran - xref, pp, screen MS $149 


34-59 


Prospero - °66, reentrant MS $349 
RM Fortran - enhanced “IBM 

Professional Fortran” MS $399 
Scientific Subroutines - Matrix MS $149 
Statistician by Alpha MS $269 


Strings and Things - register, shell PC $ 59 


MultiLanguage Support 


BTRIEVE ISAM MS $199 
BTRIEVE/N-multiuser MS $469 
CODESIFTER - Execution PRO- 

FILER. Spot bottlenecks. MS $109 


HALO Graphics- Multiple 
video boards, printer, rich. 
Animation, engineering, business. 

Any MS language, Lattice, C86 PC $249 

Panel - Create screen with editor, 
generates code. Full data validation, 
no royalties. MS $239 

PLINK 86 - a program-independent 
overlay linker to 32 levels. | MS $279 

PLINK-86 PLUS - incremental MS $369 

Pfinish Performance Analyzer PC $279 

Profiler by DWB Associates MS $ 99 

PolyLibrarian by Polytron MS $ 85 

PVCS Version Control MS $359 

Screen Sculptor - slick, thorough, 
fast, BASIC, PASCAL. 

ZAP Communications - VT 100, 
TEK 4010 emulation, full xfer. 


PC 3°99 
PC $ 85 





Turbo PASCAL & Supporting 


BORLAND: Turbo 3.0 $ 49 
3.0 with 8087 or BCD $ 79 
3.0 with 8087 and BCD $ 85 


Turbo Graphix - graphs, windows $ 39 


Turbo Toolbox or Editor $ 55 
Turbo Tutor $ 29 
TURBO... Asynch by Blaise, full $ 85 


Power Tools by Blaise - library $ 85 

Power Utilities - profiler, pp $ 85 

Professional - interrupts, macros. $ 50 
OTHERS: Screen Sculptor ($99), 

Pascal Pac ($100), Tidy ($45). 


Call for a catalog, literature, advice and service you can trust 


“T have been pleased with your catalog selec- 
tion, the knowledge of your telephone 
answering staff, and the promptness of your 
service. I have every wish to become a 
continuing customer of the Programmer’s 
Shop. 


800-421-8006 


THE PROGRAMMER’S SHOP™ 


128-DRockland Street, Hanover, MA 02339 
Mass: 800-442-8070 or 617-826-7531 486 


Circle no. 133 on reader service card. 


RECENT DISCOVERY 


Synergy - Create user interfaces. 
TopView-compatible multitasking 
operating environment offers windows, 
icons, pull-down menus and fonts 


in 12K RAM. MS $375 
Other Languages 
APL +/PC PC $469 
CLIPPER-dBASE Compiler |= MS $449 
ED/ASM-86 by Oliver PC $ 85 


HS/FORTH -’79 & °83 Standards, 
fullRAM, ASM, BIOS, interrupts. 


Graph, multi-task, optimizer MS $250 
MacASM 6- fast MAC §$ 99 
MasterForth MAC or PC $125 
Microsoft MASM - faster MS $109 
Microsoft PASCAL MS $199 
MODULA: M2SDS - popular PC $ 69 


MICROTEC PASCAL - extensions like 
packages, “Iterators”’, 5 memory 


models. 65 bit 8087 strings. MS $665 
Pasm - by Phoenix MS $219 
Prospero Pascal - full ISO+ MS $349 
RPG II by Lattice PC $675 
SNOBOL4 + - great forstrings MS $ 85 


Turbo Edit/ASM - by Speedware PC $ 85 


Xenix-86 & Supporting 


Basic - by Microsoft $279 
Cobol - by Microsoft $795 
Fortran - by Microsoft $399 
PANEL Screen LIB - multi-language $539 
Xenix Complete Development System $985 


| Other Products 


dBASE to C Translator: dBx - 
no royalties, addon ISAM, 
Pioneer it. Source $1000 MS $ 350 


HTest/H Format - XT Fix PS S219 
Microsoft Windows Pe > 75 
Opt Tech Sort- sort, merge MS $ 135 
Polymake by Polytron MS $ 79 


PS MAKE - Directly execute or Gen 
a batch file, interactive. MS $ 129 
Qwik Net - critical path, 125 tasks/ 


resources, thorough; usable PC $316 
SECRET DISK by Lattice PC $ 49 
SET; SCH, MS $ 319 
SoftEst - Softwear Estimating 

and reporting. Pioneer it. MS $ 350 
Texsys - control source MS $ 89 


Visible Computer: 8088 - Simulates 
demos or any .exe. com, Debugger. 
350 pg. tutorial PCS. 59 


Note: All prices subject to change without notice. 
Mention this ad. Some prices are specials. Ask about 
COD and POs. All formats available. 

UPS surface shipping add $3/item. 


Carl C. Rollo 


B PROTOCOL 


Listing One rext begins on page 38.) 


Ns 
* 


*e ee eee He eH HHH He He He HH He HH eH He HH OH 


Copyright (c) 1985 by Steve Wilhite, Worthington, Ohio 

Permission is granted to use or distribute this software without any 
restrictions as long as this entire copyright notice is included intact. 
You may include it in any software product that you sell for profit. 
This software is distributed as is, and is not guaranteed to work on any 
given hardware/software configuration. Furthermore, no liability is 
granted with this software. 

ABSTRACT ; 


The function, Transfer File, implements error-free file transfer using 
CompuServe's “B" protocol. 


It has been assumed that the start-of-packet sequence, DLE "B", has 
been detected and the next byte not received yet is the packet 
sequence number (an ASCII digit). 

ENVIRONMENT: Lattice "C", machine independent. 

AUTHOR: Steve Wilhite, CREATION DATE: 21-Jul-85 

REVISION HISTORY: 
Steve Wilhite, 17-Jan-86 
- included a virtual file interface. 

ax / 

/*** Feature Test ***/ 


/* Strip CR and Strip LF. are mutual exclusive!! */ 


#define Strip CR 0 /* If true, strip CR's before writing to disk. 
Add CR before sending */ 
#define Strip IF 0 /* If true, strip LD's before writing to disk. 


Add LF before sending */ 
/* External Functions */ 


extern Delay (); /* Sleep for “n" milliseconds */ 

extern Put Char (); /* Write a character to the display */ 

extern Start Timer (); /* Enable the timer for the specified number 
oe seconds */ 


extern int Timer Expired(); /* Returns “true” if the timer has expired, 
“false” otherwise */ 

extern int Wants To Abort(); /* Returns “true” if the user wants to abort 

Bay Fes the file transfer, “false“ otherwise */ 
extern int Read Modem(); /* Read a character from the comm port. 

os Returns -1 if no character available */ 
extern int Write Modem(); /* Send a character to the comm port. Returns 

S "true" is successful, "false" otherwise */ 


/* File I/O Interface */ 


extern int Create File(), Open File(), Close File(); 
extern int Read File(), Write File(); 


#define NUL 0x00 
#define ETX 0x03 
#define ENQ 0x05 
#define DLE 0x10 
#define XON 0x11 
#define XOFF 0x13 
#define NAK 0x15 
#define True 1 
#define False 0 
#define Success -1 
#define Failure 0 


#define Packet Size512 

#define Max Errors 10 

#define Max Time 10 

#define Max Xoff Time 10 

#define WACK oR /* wait acknowledge */ 


/* Sender actions */ 


#define S Send Packet 0 
#define S Get DIE 1 
f#fdefine S Get Num 2 
fdefine S Get Seq 3 
#define S Get Data 4 
#define S Get Checksum 5 
#define d_ Out 6 
#define S Send NAK 7 


#define S Send ACK 8 


” 
s 


wn 
| 


/* Receiver actions */ 


#define RGet DIE 0 
fdefine R Get | 1 
#define R Get Seq 2 
#define R_Get Data 3 


#define R Get Checksum 4 


(continued on page 92) 
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ow You Know Why 


BRIEF is BEST 


“BRIEF has improved my productivity tenfold. It paid 
for itself in 2 weeks!” 


The Program 


Editor with 
the BEST 
Features 


Since its introduction, 
BRIEF has been sweep- 
ing programmers off 
their feet. Why? 
Because BRIEF offers the 
features MOST ASKED 
FOR by professional 
programmers. In fact, 
BRIEF has just about 
every feature you've 
ever seen or imagined, 
including the ability to 
configure windows, 
keyboard assignments, 
and commands to 
YOUR preference. One 
reviewer (David Irwin, 
DATA BASED ADVISOR) 
put it most aptly, 
‘‘(BRIEF). . .is quite 
simply the best code 
editor I have seen.’’ 


Solution 


ystems” 


David Norwood, Microsystems Manager 





Every Feature You Can Imagine 


Compare these features 
with your editor (or any 
other for that matter). 

e FAST 

© Full UNDO (N Times) 

e Edit Multiple Large Files 

¢ Compiler-specific 

support, like auto 

indent, syntax check, 

compile within BRIEF, 

and template editing 

Exit to DOS inside BRIEF 

Uses all Available Memory 

Tutorial 

Repeat Keystroke 

Sequences 

e 15 Minute Learning Time 

e Windows (Tiled and 
Pop-up) 


e Unlimited File Size 
—(even 2 Meg!) 

e Reconfigurable Keyboard 

e Context Sensitive Help 

e Search for ‘‘regular 
expressions’ 

e Mnemonic Key 
Assignments 


e Horizontal Scrolling 
¢ Comprehensive Error 
Recovery 


e A Complete Compiled 
Programmable and 
Readable Macro Language 

e EGA and Large Display 
Support 

e Adjustable line length 
up to 512 


MONEY-BACK GUARANTEE 
Try BRIEF ($195) for 30 days — If not satisfied get a full refund. 


TO ORDER CALL (800-821-2492) 


SOLUTION SYSTEMS, 335-D WASHINGTON ST., NORWELL, MA 02061, 617-659-1571 


Circle no. 147 on reader service card. 





Program Editing 
YOUR Way 


A typical program editor 
requires you to adjust 
your style of programming 
to its particular require- 
ments - NOT SO WITH 
BRIEF. You can easily 
customize BRIEF to your 
way of doing things, 
making it a natural ex- 
tension of your mind. 
For example, you can 
create ANY command and 
assign it to ANY key - 
even basic function keys 
such as cursor-control 
keys or the return key. 


The Experts Agree 


Reviewers at BYTE, 
INFOWORLD, DATA 
BASED ADVISOR, and DR. 
DOBB’S JOURNAL all came 
to the same conclusion - 
BRIEF IS BEST! 


Further, of 20 top in- 
dustry experts who were 
given BRIEF to test, 15 
were so impressed they 
scrapped their existing 
editors! 


BRIEF is a trademark of UnderWare 






B PROTOCOL 


Listing One (Listing continued, text begins on page 38.) 


#define R_Send_ NAK 5 
#define R_Send ACK 6 


static int 
h, 
Checksum, 
Seq_Nun, 


R Size, /* Size of receiver buffer */ 


XOFF Flag, 
Seen_ETX, 
Seen_ENQ; 


static char 
S Buffer[(Packet Size], /* Sender buffer */ 
R Buffer (Packet Size]; /* Receiver buffer */ 


static Put_Msg (Text). 
char *Text; 
{ 
while (*Text != 0) 
Put Char (*Textt+) ; 


Put_Char(*\015'); 
Put_Char ("\012'); 
} 


static Send_ Byte (Ch) 
int ‘Chi 
{ 
int TCh; 


/* Listen for XOFF from the network */ 


Start_Timer (Max Xoff Time) ; 
do 
{ 


while ((TCh = Read Modem()) >= 0) 

if (TCh = XON) 
XOFF_ Flag = False; 

else if (TCh = XOFF) 
{ 
XOFF_ Flag = True; 
Start _Timer (Max Xoff Time); 
} 


} 
while (XOFF Flag && !Timer Expired ({)); 


while (!Write Modem (Ch) ); 
} 


static Send Masked Byte (Ch) 
int Ch; 
{ 
/* Mask any protocol or flow characters */ 


if (Ch == NUL || Ch == ETX || Ch == ENQ || Ch = DLE || Ch == NAK || Ch == XON 


{ 
Send_Byte (DLE) ; 
Send Byte(Ch + '@'); 
} 
else 
Send_ Byte (Ch); 
} 


static Send ACK () 
ae wie iors 
eee nme #24 QO" }+ 
Static Read Byte() 
if ((Ch = Read Modem()) < 0) 
Start. Simek tiie ainay> 
do 
< (Timer Expired ()) 
return Failure; 
white ((Ch = Read Modem()) < 0); 


return Success; 


} 


Static Read Masked _ Byte () 
{ 
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|| Ch == XOFF) 


(continued on page 94) 
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NETWORKS ane) JOR. 
ONE G-crec ISAM OlesS huh JALIL 


$395 COMPLETE 


Specify diskette format: 


For VISA, MC and COD orders 
e544" MS-DOS call (314) 445-6833 
eg” CP/M i] FairCom 


2606 Johnson Drive 


@ 3'A” Mac 
e 8” RT-I| ex Columbia, MO 65203 
og © 1985 FairCom 


The following are trademarks: c-tree and the circular disk logo—FairCom; MS—Microsoft Inc.; 
CP/M and Access Manager—Digital Research Inc.; Unix—AT&T; Apple—Apple Computer Co. 


Circle no. 93 on reader service card. 


oe installable | PC. bos device inl r adds 
~"~graphics command capabilities’ to any 
_|_program language. 


Allows full screen Pe DOS ae | 
~~~ editing by uunsticking: the cursor. | 


: information. call. toll. free 
1-800-338-0333, in. Ohio call 
4-800-242-0333. Use— 


and provides a built: in graphics screen 
-—-dump-for-pr rinters.. ise 


© Non- interfering with memor tt 
pplication programs. 


> provides user with all the Intell men 
iE ha 000 uments bf a | 


1 


ge '659-H Park Meadow Road _ 
wo Provites user with: the: abies r 

_ commands of the Tektronit cog 

and ere oer terminals. | 





Circle no. 94 on reader service card. 





- touch-tone to enter I. D. ‘code | Me 
¢ Supports. most. popular. graphics. beats 76-050", or. wait for ea ee : Sate a 


‘Westerville, ‘Ohio 43081” (614) 8B2: 4786 te 


The Answer 
to your 
Debugging 
Keer 


ICD286 


At last! An 80286 emulator which is 
affordable, compact, and easy to use. 


FAST—Full speed, real-time emula- 
tion up to 10 Mhz. 


AFFORDABLE—From $2400 to 
$5400, depending on options. 


EASY TO USE—On-line HELP with 
a screen oriented display. 


KEY FEATURES: 


e Hardware and software break- 
points 

e 2048 bus cycles of real-time trace 

e 64K of emulation memory 

e Symbol and line number support 

e Source-level debugging 

e Real and virtual (protected) mode 
support 

e On-line symbolic assembly and 
disassembly 

e Macros with parameters 

e Installs in an IBM-PC/XT/AT* 
or compatible 


IDEAL for development, debugging, 
testing, and field service. 


For further information, please con- 
tact: 


Auswer Software 


Corporation 


20863 Stevens Creek Boulevard 
Cupertino, CA 95014 
(408) 253-7515 


*IBM-PC/XT/AT are registered trademarks of Interna- 
tional Business Machines Corporation. 
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AT LAST: Professional B PROTOCOL 


Typesetting Capability || Listing one 
For P O Users (Listing continued, text begins on page 38.) 


pee Seen _ETX = False; 
ee 7 T: . S ENQ = False; 
With PC TRX ~~ the best-selling full eee aces 
if (Read Byte() = Failure) 
unplementation of Professor Don Knuth’s return Fatture; 
revolutionary typesetting program TRXx. if (Ch = DLE) 
{ 
° ° ° if (Read B == Fail 
FINEST Typeset Quality Printing From: Va er 
dot matrix laser phototypesetter Ba es tel: 
} 
G11 +++ Gin else if (Ch == ETX) 
oo Seen ETX = True; 
y: 1 O2L. +s + 3 San Pieces else if (Ch == ENQ) 
i. z 3 € dx Seen ENQ = True; 
— § = OO 3 
t=1 return Success; 
Ami eee Amn } 
WIDEST Range Of Output Device Drivers: static Do Checksum (Ch) 
int Ch; 
e Epson FX, LQ e HP LaserJet* 
‘ ' Checksum <<= 1; 
e Toshiba e Apple LaserWriter 
if (Checksum > 255 
e Corona LP-300* e APS-5 phototypesetter Ne a niate eis ce & OxFF) + 1; 


e Screen preview, with EGA or Hercules card Chetan km [OM eae 


MOST COMPLETE Product Offering: ee bees Pare Saat: 
PC TeX (not copy protected) includes the following: 

e Our specially written PC TfX Manual, which en- static int Read Packet-(act ibn) 
ables you to start using TX right away. ees 

e Custom “macro packages” that provide formats * Receive a packet from the host. 
for letters, manuals, technical documents, etc. * Inputs: 

e The JATRX document preparation system, a full- ; ee oe tee 
featured macro package for preparing articles, ponte oie Sk sae eae ia tac eae, 
books, reports, etc., and JAT#X User’s Manual. : R Size -- length of the packet 

e@ AyS-TeX, developed by the Amer. Math. Society * Returns: 
for professional mathematical typesetting. BG Bpetess/ tet 

Site licenses, volume discounts, and interfaces to as Action; 
PC Paintbrush, PC Palette, FancyFont and Fontrix int 
are also available. Need oes 


PRICED FROM ONLY $249.00! | |" -” 


while (Errors < Max Errors) 
(Printer drivers and interfaces additional.) Sor (Action) 
case R Get DLE: 
{f (Read Byte() == Failure) 
Action = R_Send_NAK; 
else if (Ch — DLE) 





: Action = R Get _B; 
Laser printer, else if (Ch = ENO) 
from $2995.00 break; 
case R Get B: 
{f (Read Byte() == Failure) 
Action = R_Send_NAK; 
else if (Ch = '‘B') 
Acti = R Get Seq; 
For IBM PC/XT, AT or compatible, DOS 2.0 or higher, and else . Berea 
012K RAM. Hard disk required for printer drivers and fonts. Action = R_Get_DLE; 
*HP LaserJet and Corona require additional interface boards. ae 
For more information call or write: case R Get_Seq: 
f (Read Byte() == Failure) 
Personal Tpx, Inc. Action = R_Send_NAK; 
? else $. a 


20 Sunnyside, Suite H, Mill Valley, CA 94941 (415) 388-8853 
Checksum = 0; 


This ad, with space for the photograph, produced by PC Tx. Next Seq = Ch - '0'; 
Typeset on the Epson FX80, the Corona LP-300 laser printer, ee (Ch) ; 
ze = 0; 
and the Autologic APS-5 phototypesetter. Action = R Get Data; 
TEX is a trademark of the American Mathematical Society. Manufac- } 
turers’ product names are trademarks of individual manufacturers. 


ea ee a SI tee eS a See ee TS ie 
Circle no. 76 on reader service card. 
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break; 


case R Get Data: 

{f (Read Masked Byte() == Failure) 
Action = R Send NAK; 

else if (Seen_ETX) ~ 
Action = R Get _ Checksum; 

else if (Seen | ENQ) 
Action = R Send ACK; 

else if (R_ Size == Packet _Size) 
Action =R _ Send_NAK; 

else = 


V——_— 


R Buffer[R Size++] = 


Do_Checksum (Ch) ; 


~- 


break; 


case R Get Checksum: 
Do_Checksum (ETX) ; 


if (Read Masked Byte() == Failure) 
Action = R_Send_NAK; 

else if (Checksum != Ch) 
Action = R_Send_NAK; 

else if (Next_Seq == Seq Num) 

Action = R_Send_ ACK; /* Ignore duplicate packet */ 

else if (Next _Seq l= (Seq Num + 1) % 10) 
Action = R_Send_NAK; 

else 
{ 
Seq_Num = Next Seq; 


returm Success; 


} 
break; 


case R_Send_NAK: 
Put_Char('-'); 
Errors++; 
Send Byte (NAK) ; 
Action = R_Get_ DLE; 
break; 


case R_Send ACK: 
Send_ACK(); 
Action = R_Get_ DLE; 
break; 


} 


return Failure; 


static int Send Packet (Size) 


/** 
* Function: 
. Send the specified packet to the host. 
* 
* Inputs: 
* Size -- length of the packet 
* S Buffer -- the packet to send 
* 
* Outputs: 
x 
* Returns: 
* success/failure 
a / 
int Size; 
{ 
int 
Action, 
Next _Seq, 
RCV_Num, 
I, 
Errors; 


Next Seq = (Seq Num + 1) % 10; 
Errors = 0; 
Action = S Send Packet; 


while (Errors < Max Errors) 
switch (Action) 

{ 

case S Send Packet: 
Checksum = 0; 
Send_Byte (DLE); 
Send | | Byte (‘B'); 
Send Byte (Next_Seq + '0'); 
Do . Checksum (Next Seq + °0°)3 


for (I = 0; I < Size; I++) 
{ 
Send Masked Byte(S Buffer[{I]}); 
Do ) Checksum (S | Buffer(I]); 
} 


Send_Byte (ETX) ; 
Do Checksum (ETX) ; 


Send Masked Byte (Checksum) ; (continued on next page) 
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Put More 
UNIX” in 
Your C. BH, 


Unitools $99 me ane 
MAKE, DIFF and GREP S$ We 
These versatile UNIX-style utilities put 
power at your fingertips. MAKE, a 
program administrative tool, is like 
having an assistant programmer at your 
side. DIFF compares files and shows 
you the differences between them. 
GREP can search one or many files 
looking for one pattern or a host of 


patterns. 
poiror 
“Z $99 


A Powerful “‘vi’-type Editor: 

Similar to the Berkeley “‘vi’’ editor, 
‘“*Z’s” commands are flexible, terse, 
and powerful; macro functions give you 
unlimited range. Features include 
“undo,” sophisticated search and re- 
place functions, automatic indentation, 
C-tags, and much, much more. 








PC-LINT $99 
Error Checking Utility <2 He 
A LINT-like utility that analyzes pro- 
grams and uncovers bugs, quirks and 
inconsistencies. Detects subtle errors. 
Supports large and small memory mod- 
els, has clear error messages and 
executes quickly. Has lots of options 
and features that you wouldn’t expect 
at this low price. 


EE oer 
SunScreen $99 a of 


P 4B, 
Low-priced Screen Utility NOS7 


This versatile graphics package easily 
creates and modifies formatted screens, 
validates fields, supports function keys, 
color and monochrome cards. With li- 
brary source SunScreen is $199. 


Compatible with all leading MS/ 
PC-DOS C compilers. 


SPECIAL aba 
Unitools, * 

PC-LINT a Sun- 
Screen All for only 


To order or for information call: 


/CCWAR 


1 800-TEC- WARE 


(In NJ call 201-530-6307) 


UNIX 1s a repstered TM of Bell Laboratones, MAN X AZTEC ia pores Software Systems. Inc PC 
LINT ™ GIMPLE software. SunScreen TM SunTec. MS-DOS TM Mic’ 
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B PROTOCOL 


Listing One (Listing continued, text begins on page 38.) 


Action = S Get DLE; 
break; 


case S Get DLE: 
if (Read Byte() == Failure) 
Action = S Timed Out; 
else if (Ch — DLE) 
Action = S Get Nun; 
else if (Ch = ENQ) 
Action = S Send ACK; 
else if (Ch = NAK) 
{ 
Errors++; 
Action = S Send Packet; 
} 


break; 


case S Get Num: 
{f (Read_Byte() == Failure) 
Action = S Timed Out; 
else if (Ch >= 'O' && Ch <= '9') 


{ 
if (Ch == Seq Num + '0') 

Action = S Get DLE; /* Ignore duplicate ACK */ 
else if (Ch == Next Seq + '0') 

{ 

/* Correct sequence number *’ 


Seq Num = Next_Seq; 
return Success; 


} 
else if (Errors == 0) 

Action = S Send Packet; 
else 

Action = S Get DLE; 


} 
else if (Ch == WACK) 


{ 
Delay (5000) ; /* Sleep for 5 seconds */ 
Action = S Get DLE; 


} 
else if (Ch = ‘B') 
Action = S Get Seq; 
else 


Action = S Get_DLE; 
break; 
case S Get Seq: 
Jes 


* Start of a "B" protocol packet. The only packet that makes 
* any sense here is a failure packet. 
ak / 


if (Read Byte() == Failure) 
Action = S Send_NAK; 
else 


Checksum = 0; 
RCV_Num = Ch - '0O'; 
Do Checksum (Ch) ; 

I = 0; 

Action = S Get Data; 
} 


break; 


case S Get Data: 

{f (Read Masked Byte() == Failure) 
Action = S Send_NAK; 

else if (Seen _ETX) 
Action = S Get_Checksum; 

elise if (Seen _ENQ) 
Action = S Send ACK; 

else if (I == Packet Size) 
Action = S Send _NAK; 

else ie 


{ 

R Buffer[I++] = Ch; 
Do_ Checksum (Ch) ; 

} 


break; 


case S Get Checksum: 
Do_Checksum (ETX) ; 


if (Read Masked Byte() == Failure) 
Action = S_Send_NAK; 

else if (Checksum != Ch) 
Action = S Send _NAK; 

else if (RCV_Num != (Next Seq + 1) % 10) 
Action = S Send _NAK; 

else 


{ 
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[** 


* Assume the packet is failure packet. It makes no / 
* difference since any other type of packet would be SE cs 
* invalid anyway. Return failure to caller. 
xe / 
Errors = Max Errors; QO 
! ; Gr Up 
break; 
case § Timed Out: Over 85 volumes of public 
Errors++; domain software including: 
Action = S Get DLE; ; 
break; compilers 
a hae editors 
no ee ae Re text formatters 
Errorst+; communications 
soe te 8 2 packages 
ction = et : ; : 
bcanke — e many UNIX-like tools 
ease S Sono ner Write or call for more details 
SONS RE nis The C Users’ Group 
br secs —_— Post Office Box 97 
} McPherson, KS 67460 


(316) 241-1065 





return Failure; 5 
} Circle no. 181 on reader service card. 


static Send Failure (Code) 


[** 
* Function: S Nl 
> Send a failure packet to the host. ee ea ee 
ea | CROSS 
* Code -- failure code Ses Bie eee ans eae 2 
' ASSEMBLERS 
* Outputs: ae a ee 
re Assemblers now available include: 
xx / 
char Code; Chip Chip Chip 
: Surrantl= 28% 1802/1805 HD64180 8051 
SRAPEntii i: = Goes 9900/9995 NSC800 6804 
bso 6800/01/02 28 6809 
6800/08/10 280 6877 
Stgtic- int Receive iia (ans) 8048/49/50/42 28000 8085 
athe ied 65C02/C102/C112 6803/08 6301 
2 Download the specified file from the host. RELATIONAL MEMORY SYSTEMS, INC. 
* Inputs: P O. Box 6719 ; 
te Name -- ptr to the file name string San Jose, California 95150 
. Output s: Tel: (408) 265-5411 
* Returns: CPM80, MPM, ISIS Versions Available 
* success/failure 
ax / 
char *Name; 
{ 
int Data File; /* file descriptor */ 
if ((Data File = Create File(Name, 0)) == -1) 


{ 

Put_Msg("Cannot create file"); 
Send Failure('E'); 

return Failure; 

} 


ees Sexe “Somehow 
for (37) ' ¢ we have to 
if (Read Packet (R_Get_DLE) == Success) ‘ 
switch (R Buffer (0]) m5 break loose 
case 'N': /* Data packet */ VN a from the 
if (Write File (Data File, sR Buffer[(1], R_Size - 1) != R Size - 1) Wha a WES VE 
{ ; ee think about 
/* Disk write error */ Gary Kildall 


(CPM) microcom- 
puters if we want to 
stimulate advances in 


Put _Msg(“Disk write error"); 
Send Failure('E'); 

Close File(Data File); 
return Failure; 


computers.” 
if (Wants To Abort ()) 
{ 
/* The user wants to kill the transfer */ Programmers at Work 
Send Failure('A'); . ‘ 
Closé File (Data File); Interviews with 19 of 
return Failure; Today's Top Programmers 
$14.95 (soft) $19.95 (hard) 
(continued on next page) Available wherever fine books are sold. 
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Listing One (Listing continued, text begins on page 38.) 


Send_ ACK (); 
Put Char('+'); 
break ; 


case 'T': /* Transfer packet */ 
if (R_Buffer({1] = 'C') /* Close file */ 
{ 
Send_ACK(); 
Close | File (Data File); 


return Success; 
} 


else 
{ 
/** 
* Unexpected "T" packet. Something is rotten on the 
* other end. Send a failure packet to kill the 
* transfer cleanly. 
ak / 
Put Msg ("Unexpected packet type"); 
Send Failure('E'); 
Close _File(Data File); 
return Failure; 
} 
case ‘F': /* Failure packet */ 
Send_ACK (); 


Close . File (Data File); 
return Failure; 


else 
{ 
Close File (Data File); 


return Failure; 
} 


static int Send | File (Name) 


/** 

* Function: 

- Send the specified file to the host. 
* 

* 2a BS 

* Name —- ptr to the file name string 
*« 

* Outputs: 

x 

* Returns: 

: success/failure 

ae / 


char *Name; 
{ 
int 


Data File, /* file descriptor */ 
N; 


if ((Data_ File = Open File(Name, 0)) = -1) 
{ 


Put _Msg("Cannot access that file"); 
Send | Failure(‘E'); 

return Failure; 

} 


do 
{ 


S_Buffer[0] = 'N'; 
N = Read_File(Data File, 6S Buffer[1], Packet Size - 1); 
if (N > 0) 
{ 
if (Send Packet (N + 1) == Failure) 
{ 


Close File(Data _ File); 
return Failure; 
} 


if (Wants To Abort ()) 
{ 
Send Failure('A'); 
Close File (Data File); 
return Failure; 


} 
Put Char (*4"*)% 
} 


} 
while (N > 0); 


if (N = 0) /* end of file */ 


{ 

Close File(Data _File); 
S Buffer[0] = 'T'; 

S_ Buffer[1] = 'c'; 
riagea Send Packet (2); 
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else 


{ 

Put Msg(“Disk read error"); 
Send Failure('‘E'); 

return Failure; 


} 
} 


int Transfer File () 

/** a 

* Function: 

. Transfer a file fram/to the micro to/from the host. 


Inputs: 


* * 


* Outputs: 
* 


* Returns: 
* success/failure 
ae / 
{ 
int. I; Ne 
char Name [64]; /* holds the file name */ 


XOFF_ Flag = False; 
Seq Num = 0; 


if (Read_Packet (R_Get_Seq) == Success) 
a (R_Buffer(0] == ‘T*) /* transfer packet */ 

/* Check the direction */ 

if (R_Buffer(1] != ‘D’ && R Buffer{1] != ‘U') 
Send Failure(*N"); /* not implemented */ 
gas Failure; 

/* Check the file type */ 

if (R_Buffer[2) != 'A' && R_Buffer[2) != 'B') 
Send Failure (*N"); 
— Failure; 

/* Collect the file name */ 

N = R Size - 3 > 63 ? 63 : R Size - 3; 


for (I = 0; I < Nj I++) 
Name(I] = R_Buffer[(I + 3]; 


Name[I] = 0; 

/* Do the transfer */ 

if (R_Buffer({1]) = ‘5*} 
return Send File (Name) ; 


else 


} 
else 


return Receive File (Name) ; 


{ 
Send Failure('E'); /* wrong type of packet */ 
return Failure; 
} 
} 
else 
return Failure; 
} 


End Listing One 


Listing Two 


title Keyboard Driver 
include \lc\dos.mac 
pseg 


public Read_Keyboard 


Read Keyboard proc 
ptt 
Function: 
Read a “raw” character from the keyboard. 


Inputs: none 
Outputs: none 
Returns: 
-1 if no character is available; otherwise a 16-bit code. 


If the high byte is zero, then the low byte is an ASCII character, 
else the low byte is an “extended" character (scan code) . 


se Se Se Me Se Me Se Fe Se Se Se Fe 


mov AH, 1 


(continued on next page) 
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IC PROMPT DELIVERY!!! 
& SAME DAY SHIPPING (USUALLY) 


QUANTITY ONE PRICES SHOWN 











OUTSIDE OKLAHOMA: NO SALES TAX 


DYNAMIC RAM 
256K .64Kx4 150ns $4.85 
256K 256Kx1 100 ns 6.20 
256K 256Kx1 120 ns 3.90 
256K 256Kx1 150 ns 3.47 
128K 128Kx1 150 ns 4.92 
64K 1.60 


27512 
27C256 = 32Kx8 250ns 8.15 
27256 32kx8 250 ns 5.45 
27128 16Kx8 250 ns 3.90 
27C64 8kx8 200 ns 5.30 
2764 8kx8 250 ns 3.80 
2732 4Kx8 450 ns 3.85 


8 Mhz $375.00 
















V20/V30 8Mhz §$ 17.50 


IBM PC/XT, Compag Portable & Plus/HP Vectra 
sTOvis i 


8087-2 $185.00 


640 Kbyte MOTHERBOARD KITS: Zenith 150: $87.46 
8087-3 $135.00 


STATIC RAM 
6264LP-15 8kx8 150ns $3.45 
6116LP-3 2Kx8 150ns 





OPEN 612 DAYS: WECAN SHIP VIA FED-EX ON SAT 
MasterCard/VISA or UPS CASH COD 
Factory New, Prime Parts Poo 
MICROPROCESSOR UNLIMITED, INC. 
RECEIVEDBY | 24,000 S. Peoria Ave., 
mSEAr S/4 te BEGGS, OK 74421 (918) 267-4961 
- Prices shown above are for April 21, 1986 
Ptease call for current prices. Prices subject to change. Please expect higher or lower prices on 
some parts due to supply & demand and our costs. Shipping & insurance extra. Cash 


Ghecourt prices show Orders received by 6 PM CST can usually be delivered to you by the next 
moming, via Federal Express Standard Air @ $6.00, or Priority One @ $13.00! 





















FOR FED-EX 
SAT DELIVERY 
ON ORDERS 
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Unix/Xenix 
End-Users and 






Dealer 
inquiries 
welcomed. 


COR IATE 


“A Higher Form of Software” 
24000 Telegraph Road 
Southfield, MI 48034 
(313) 352-2345 
TELEX: 386581 COGITATE USA 
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“Sometimes 
the idea 
behind a pro- 
gram 1s one 
small creative 
effort. Just 
(VisiCalc) like ina short 
story, one little twist in the 
plot is the whole idea 


behind it.” 













Programmers at Work 


Interviews with 19 of aie 
Today’s Top Programmers 
$14.95 (soft) $19.95 (hard) 


Available wherever fine books are sold. 
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Listing Two (Listing continued, text begins on page 38.) 


16H 7 Scan the keyboard 
Read Keyboard 1 7 No character available 
AH,O vc : Yes 
16H 7 Read keyboard 
AL, 0 ; Extended character 
Read Keyboard 2 ; Yes 

i ; No, normal character 


7 Denote “no character available" 


Read Keyboard 2: ; Extended character 
mov 


Mov 7 Set the “function key" flags 
ret 


Read Keyboard endp 


— End Listing Two 


Listing Three 


/* 
* This program emulates a dump terminal with file transfer Support using 
* CompuServe's B-Protocol. This program is just a sample of how to interface 
* the BP module (BP.C) with the rest of the terminal emulator. 


*/ 

#define IBM PC 1 
extern int Transfer File(); /* Transfer a file using the "B" protocol */ 
extern int Read Keyboard(); /* Get a “raw” character from the keyboard */ 
extern Open Modem () ; /* Initialize the comm port */ 


extern int Read Modem(); /* Read a character from the comm port */ 
(continued on page 102) 








Time and Money. 


We've just done something we know you'll like. Battery Backup, Too 
We've made the SemiDisk far more affordable than 


ever before. With price cuts over 25% for most of 
our product line. Even our new 2 megabyte units 
are included. 





At 0.7 amps per 2 megabytes, SemiDisk consumes 
far less power than the competition. And you don’t 
have to worry if the lights go out. The battery 
backup option gives you 5-10 hours of data 

It’s Expandable protection during a blackout. Nobody else has this 
important feature. Why risk valuable data? 










SemiDisk Systems builds fast disk emulators for 












more microcomputers than anyone else. S-100, The Best News 

IBM-PC, Epson QX-10, TRS-80 Models II, 12, and 16. 512K 1Mbyte 2Mbyte 
You can start with as little as 512K bytes, and later SemiDisk I, S-100 $695 $1395 

upgrade to 2 megabytes per board...at your own SemiDisk II, S-100 $995 $1995 
pace, as your needs expand. Up to 8 megabytes per pm PC, XT, AT $595 $1795 
computer, using only four bus slots, max! Software QXx-10 $595 $1795 
drivers are available for CP/M 80, MS-DOS, ZDOS, TRS-80 II, 12, 16 $695 $1795 
TurboDOS, VALDOCS 2, and Cromix. SemiDisk Battery Backup Unit $150 $150 $150 






turns good computers into great computers. 


SEMIDISK 


SemiDisk Systems, Inc., P.O. Box GG, Beaverton, Oregon 97075 503-642-3100 


Call 503-646-5510 for CBBS/NW, 503-775-4838 for CBBS/PCS, and 503-449-8327 for CBBS/Aloha, all SemiDisk equipped computer bulletin boards ( 300/1200 baud ) SemiDisk, SemiSpool trademarks of SemiDisk Systems. 






someday you'll get a SemiDisk. 
Until then, you'll just have to....wait. 
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HDTEST formats and tests hard drives in PC, XT, AT, and true compatibles. 
Written for production quality control; you know it’s fast and thorough. Menu- 
driven operation and context sensitive help windows make life easy when in- 
stalling or reformatting hard drives. Flag known bad tracks and do a com- 
prehensive surface scan to find unlisted defects. You can modify controller 
and test setup, load/save setup and defect files. Works with WD, Xebec, OM- 
TI, DTC, and Adaptec controllers. Free HD Drive Park Program included! Call 
for more information. $99.00 

GALLERY 6 DISTRIBUTED BY PROTO PC, INC. 
2439 FRANKLIN AVENUE ST. PAUL,MN 55114 
612-644-4660 TLX910-380-7623 
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Call today for our free catalog of design aids, com- 
pilers, libraries, debuggers, and support tools for 
Apple and IBM micro computers. The Power Tools 
catalog includes product descriptions, warranty and 
license terms, and all the information you need to 
make an intelligent purchase decision. 


TSF offers technical support, competitive pricing, 
free UPS shipping on orders over $100, and a reason- 
able return policy. Visa, MasterCard, and American 


Express accepted without surcharge. TSF helps you 
get your job done. 


Sample Prices: Call Toll Free 
Microsoft C $259 24 hrs a day/7 days a week 
MASM 4.0 $109 


Turbo Pascal $45 Ask For Operator 2053 
Mark Williams C $375 


Lets C $59 800-543-6277 


Wendin OS Toolbox $89 
Blaise Async Manager $137 Calif: 800-368-7600 


¢ Dept C-1 ¢ 649 Mission Street 
e San Francisco ¢ CA 94105 
© (415) 957-0111 


The Software Family™ 
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NOT COPY 
PROTECTED! 






Sybil is an Advanced Diagnostics disk... 
She can low format hard disks just like 
Advanced Diagnostics (IBM, Compagq, etc.) and 
she can do system and memory tests which 
provide even more information than Advanced 
Diagnostics does. $245.00 cheaper than IBM's 
Advanced Diagnostics! 


Sybil is a Disaster Recovery program... 
She can recover hard disks that have been ac- 
cidentally formatted, completely! The hard disk 
reappears in exactly the same condition prior 
to the format. Truly amazing! 


Sybil is a Graphics Editor... 

She can draw on either RGB monitors (in color) 
or IBM Monochrome monitors in high ASCII 
characters. Perfect for creating Binary Image 
Files. The Binary Image Files can be converted 
to Assembly and then linked to other lan- 
guages, such as your favorite Pascal, C, or com- 
piled BASIC program. Includes source code. 


Sybil is a File Wizard... 

Sybil can backup files by date, by time, or by 
size. She can find any file (or files) anywhere on 
your hard or floppy disks, even if you haven't 
the vaguest notion. She can edit file attributes 
with the greatest of ease, unerase files, edit 
sectors, and globally change time and date 
stamps. All her file utilities understand paths 
and wildcards. 


Sybilis alsoa... 
RAM Disk, Print Spooler, General Regular 
Expression Parser and, Advanced File 
Comparator. 

Order Sybil Today! 


Call 800-922-3001, in Colorado, 
303-444-1542 


SOPHCO 


ae PO Box 7430 
ME = Boulder, Colorado 80306 
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Listing Three (visting continued, text begins on page 38.) 


extern int Write Modem(); /* Send a character to the comm port */ 
extern Close Modem () ; /* Release the comm port */ 


#define True 1 
#define False 0 


#define Baud_300 
#define Baud_450 
#define Baud_1200 
#define Baud 1800 
#define Baud 2400 
#define Baud_ 4800 
#define Baud 9600 


/* Baud rate codes used by Open Modem */ 


SOUP WH 


#ifdef IBM PC /* for IBM style keyboards */ 
#define Exit Key 0x012D /* Alt-X */ 

#else 

#define Exit Key 0x001D /* control-] */ 

#endif 


#define Is Function Key(C) ((C) > 127) 
#define ENQ 0x05 
#define DLE 0x10 
#define ESC 0x1B 


/* 
* We only support the B-protocol file transfer. No other VIDTEX features. 
“/ 


Static char VIDTEX_Response[] = “#DTE,PB,DT\015"; 


static int 
Old_ Break State, 
Ch, /* 16-bit “raw” character */ 
Want_7 Bit, /* true if we want to ignore the parity bit */ 
ESC Seq State; /* Escape sequence state variable */ 


int Wants To Abort {) 
{ 


} 


main () 
{ 


return Read Keyboard() == ESC; 


char *cp3 


Want_7 Bit = True; 
ESC Seq State = 0; 


#ifdef MSDOS 
Old Break State = Get_Break(); 
Set Break (0); 

#endif 


Open_Modem(0, Baud 1200, False); 
puts("[ Terminal Mode ]"); 
Ch = Read Keyboard (); 


while (Ch != Exit Key) 
{ 
if (Ch > 0) 
{ 
if (Is Function_Key (Ch) ) 
{ 


/* Here to process any local function keys. */ 
} 


Write Modem(Ch & Ox7F); 


else 
} 

if ((Ch = Read Modem()) >= 0) 
if (Want_7 Bit) Ch &= Ox7F; 


switch (ESC Seq State) 
{ 


case 0: 
switch (Ch) 
{ 


case ESC: 
ESC Seq State = 1; 
break; 
case ENQ: 
/* Enquiry -—- send ACK for packet 0 */ 


Write Modem (DLE) ; 
Write Modem('0'); 
break; 


case DLE: 
ESC Seq State = 2; 
break; 
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ISAM Driver | 


Iiiake 


“For more information call or write: 


Credit cards accepted. 


default: 
Put Char (Ch); 
} 


break; 


case l: 


/* ESC -- process any escape sequences here */ 


switch (Ch) 
{ 
case:*i*s 
/* 
* Reply to the VIDTEX “ESC I“ identify sequence 
=y 


cp = VIDTEX Response; 


while (*cp != 0) Write Modem (*cpt+) ; 


ESC Seq State = 0; 


break; 


default: 
Put Char (ESC); 
Put Char(Ch); 


ESC Seq State = 0 


} 
break; 


case 2: 
/* DLE */ 


if (Ch = 'B') 
{ 


/* Start of “B" protocol packet. Go into protocol 
* mode and transfer the file as requested. 


sf 


if (!Transfer File()) puts("Transfer failed!"); 


} 


{ 

Put Char (DLE); 
Put Char (Ch) ; 

} 


ESC Seq State = 0; 








C-PROGRAMMERS 
File System Utility Libraries " 








_ All products are written entirely in K&R.C: Source... 


code inchided, No Royalties, Powerful & Portable. | 


@..High-speed-random- and sequential access: 
¢ Multiple keys per data file with up to 16 million records per file. - 


© Duplicate keys, variable length data records. Soe | 
400°. 





® Greatly speeds application development. 


__® Combines ease of use of database manager with flexibility of program- 


ming language. 
e Supports multi key files and dynamic index definition. 
°- Very-easy to use: 
59,00 
® Patterned after the UNIX utility. 
»... Works. for programs written-in-every Janguage: 


e Full macros, File name expansion and built in rules. 


Full Documentation and Example Programs.Included. 


ALL THREE PRODUCTS FOR — 149..9° 


1343 Stanbury Drive 
Oakville, Ontario, Canada 
L6L-2Jd5 

(416) 825-0903 








Dealer inquiries invited. 
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(continued on next page) 


The First Idea-Processor For Programmers. 
Firslime™ Has features no other editor has. 


Fast program entry through single keystroke statement generators 

Fast editing through syntax oriented cursor movements 

Dramatically reduced debugging time through immediate syntax checking. 

The error checking is thorough and includes semantics * Undefined variables, 


Ed GC) 2: 


types and constants ¢ Assignment statements with mismatched types 
¢ Errors in include files and macro expansions 


|} Automatic program formatter (you specify the rules) 
(1) Command DOS from FirsTime 
(1) Reading a file with errors moves cursor automatically to point of error 


(1 Split Screen editing 


(1) Unique programmer-oriented features 
* zoom command gives top-down view of program logic 
* view macro command shows expansion of a C macro in the editor 
¢ view/update include file allows you to view and update an include file 
° transform command allows you to transform statements to related ones 
e search for next error command 























ee 


<2 
—* Gebatetesl 


FirsTime for Turbo Pascal $ 74.95 


q 


- @DNEO 


[ 


| 


ce. 





To Order Call: (201) 741-8188 or write: 


SPRUCE TECHNOLOGY CORPORATION FirsTime for dBase III $125.00 
FirsTime for MS-Pascal $245.00 

PO. Box 7948 FirsTime for C $295.00 

Shrewsbury, NJ 07701 f Technol Corporation * MS-DOS is a trademark of 

an oueumn swt vane Pe Tepriaincinal Business Machines Inc. 


* Turbo Pascal is a trademark of Borland International * dBase Il! is a trademark of Ashton-Tate. 
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Listing Th ree (Listing continued, text begins on page 38.) 
i = Read Keyboard () ; 


Close Modem (); 
#ifdef MSDOS 
Set_Break (Old_ Break State) ; 


#endif tik 
End Listing Three 


Listing Four 
title Screen 


include \lc\dos.mac 


Video equ 10H ; IBM BIOS call 
TTY Write equ 14 


pseg 
public Put Char 


Put Char proc 
r++ 


7 Function: 

; Write a character to the screen in "normal" TTy-style output. 
; Inputs: 

° 4(BP] - the character to write 


; Outputs: none 


7 Returns: nothing 


push BP 
mov BP, SP 
Mov AL, 4(BP]} ; Character to write 
Mov BH, 0 ; Current page 
mov AH, TTY Write 
int Video 
pop BP 
ret 
Put_ Char endp 
endps 
end 


End Listing Four 


(Listings to be continued next month.) 


ee ee ey 


TASKVIEW is high tech, available now, and it works with virtually all DOS software. 
Give Lotus, Sidekick, Multimate or most any DOS program the advantages of real multi- 
tasking. It’s simple to use, compatible, bulletproof and most of all, it won’t slow you 
down. That’s because TASKVIEW only shares your computer when YOU want it shared. 
At other times, your visible program runs at full speed, waiting for you to easily 
switch from program to program at the touch of a key. Compatible with most DOS 
computers including the IBM PC/XT/AT/Jr. series, you can order TASKVIEW today 
for only $69.95 + 5.00 Shipping and Handling, VISA and Mastercard. 








ORDER LINE Sunny Hill 
Taskview trademark Sunny Hill Software. y 
(2 06) 4 6 es -06 5 0 Lotus trademark Lotus Development Corp. Software 
Sidekick trademark Borland Intl. i 
30 Day Money Back Guarantee. Multimate trademark Ashton Tate. babes Mot edeoiss ep 
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DR. JACK PURDUM 
Get the proven product from the man 
who wrote the books on “C”. 


C Programming Guide 
After reading the Ist edition, Jerry Pournelle (BYTE 
Magazine) said: “I recommend this book...Read it 
before trying to tackle Kernighan and 
Ritchie.” The second edition ex- 
pands this best seller and walks 
you through the C language in an 
easy-to-understand manner. 
Many of the error messages in- 
clude references to this book 
making it a perfect com- 
panion to Eco-C88 for those 
just starting out with C. 


$20 






aw 


a 


C Self-Study Guide 
(Purdum, Que Corp.) Designed for 
those learning C on their own. The 
book is filled with questions-answers 
designed to illustrate many of the 
tips, traps, and techniques of the 
C language. Although written to 
complement the Guide, it may 
be used with any introductory 
text on C. 

$17 


C Programmer’s Library 

(Purdum, Leslie, Stegemoller, Que 
Corp.) This best seller is an inter- 
mediate text designed to teach you 
how to write library functions in a 
generalized fashion. The book 
covers many advanced C topics 
and contains many useful ad- 
ditions to your library including 


$22 


CED Program Editor 

CED now supports on-line function help. If you've 
forgotten how to use a standard library function, just 
type in the name of the function and CED gives you 
a brief summary, including function arguments. CED 
is a full screen editor with auto-flagging of source code 
errors, multiple windows, macros, and is fully con- 
figurable to suit your needs. You can edit, compile, 
link, and execute DOS commands from within the 
editor. Perfect for use with Eco-C88. For IBM PC, AT 


C Source for Standard Library 

Contains all of the source code for the library func- 

tions that are distributed with Eco-C88, excluding the 

transcendentals and functions written in assembler. 
$10 ($20 if not with order) 

Developer’s Library 

Contains all the source code for the standard library, 

including transcendental and assembler functions. 

Available with compiler purchase only. 


$25 ($50 if not with order) 





Ecosoft Inc. 
6413 N. College Ave. 
Indianapolis, IN 46220 











a complete ISAM file handler. 








THE FIRST PROFESSIONAL 
‘C’COMPILER FOR UND 


$60. 





NOTHING IN 
THIS PRICE 
RANGE EVEN 
COMES CLOSE. 


“Ecosoft's Eco-C is going to turn some 


major heads.” 


“Eco-C is the first compiler reviewed that 
has clearly begun implementing the 
coming ANSI standard. Eco-C supports 
prototyping.” 
“Eco-C performed well on all the bench- 
marks, generating code that was quite 
comparable to that of compilers 10 times 
as costly.” 
from: 
Christopher Skelly 
Computer Language, 
Feb., 1986 


“The driver program is another strength: 
it compiles and links a list of files and 
provides a simple MAKE capability.” 


“This compiler does handle syntax errors 
much better than average—no ava- 
lanche of spurious messages here.” 

from: 

William Hunt 

PC Tech Journal, 

Jan., 1986 


“Eco-C88 is a high-quality package... 
comparable to systems costing much more.” 


“Eco-C88 is one of the fastest...” 


“It is convenient to use, works well, and 
produces acceptably compact and fast 
programs.” 

from: 

Dr. David Clark 

Byte, Jan., 1986 


Minimum System Requirements: 


To use Eco-C88 Release 3.0, you must 

have: 

1. An IBM PC, XT, or AT-compatible 
computer with monitor. 

2. 256K or more memory. 

3. Two 360K disk drives, or a hard disk. 

4. PC or MSDOS 2.1 or later to include 
the MSDOS linker. 


Eco-C88, mini-make, memfiles and CED 
are trademarks of Ecosoft Inc. 

IBM is a trademark of International 
Business Machines. 

UNIX is a trademark of Bell Labs. 
MSDOS and MASM are trademarks of 
Microsoft. 












Full-featured C compiler. Supports all 
C features, data types (except bit fields), 
and operators. 


New Language Enhancements. You 
also get prototyping, enum and void 
data types, plus structure passing and 
assignment. 


Tiered Error Checking. All syntax er- 
rors are automatically flagged, but you 
can select the level of “link-like” seman- 
tic error checking you want. 


Complete Standard Library. Over 200 
functions, many of which are System V 
compatible for greater source code 
portability. 


Screen and Memory Functions. Now 
you can write programs that use color, 
cursor addressing, even ones that let you 
design your own graphics functions. You 
also get memfiles™ that allow you to ac- 
cess memory outside the normal data 
segment as a file. 





Computer Language, Feb., 19 


ve J-800-952-0472 
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8087 and 80287 Support. If you have 
one of these math chips, your programs 
will take immediate advantage of it. If 
you don't have one, the code automat- 
ically switches to software floating point. 


Full Screen Editor. The CED editor is a 
full screen editor with multiple windows, 
macro commands, on-line function help, 
plus a full set of editing commands. (Re- 
quires a true IBM PC compatible.) You 
can edit, compile, link, and execute pro- 
grams from the editor which greatly 
reduces development time. 














Includes a cc and mini-make™. The 
UNIX-like cc makes compiling pro- 

grams a snap. You can run cc from 
within the CED editor. 


ASM or OBJ Output. You can select 
assembler or relocatable output from the 
compiler. Both are MASM compatible 
and ready for use with the MSDOS 
linker to produce EXE files. 


Williams 
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i ORDER FORM CLIP & MAIL TO: Ecosoft Inc., 6413 N. College Ave., Indianapolis, IN 46220 


é L) C Compiler $59.95 

g U CProgramming Guide $20.00 
BO CSelf-Study Guide $17.00 

B 0 CProgrammer’s Library $22.00 
BO CED Program Editor $29.95 


BO C Source for Standard Library $10.00 ($20.00 if not with order) 
Bo Developer's Library $25.00 ($50.00 if not with order) 


SHIPPING 
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B cry 
0s i Ne 
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$4.00 
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Circle no. 89 on reader service card. 






16-BIT 


Listing One (Text begins on page 112.) 


FORTRAN PROGRAMMERS 


Downloading from mainframes or developing 
on the PC the choice is F77L. 


: : 2 mov dx,seg fname 7 open a file for I/O 
‘‘Lahey’s F77L FORTRAN is the compiler of choice... mov ds, dx ; DS:DX = ASCIIZ filespec 
a‘ . S 5 ‘ . mov dx,offset fname ; function 3DH = open, 
F77L compiled the five files in a total of 12 minutes which mov ax, 3d02h ; use mode 2 (read/write) 
was 4 times as fast as MS FORTRAN and an astounding 3 Goren! 5 Seis AE epee pation 
6 times as fast as Pro FORTRAN.”’ PC Magazine SS ee en ge 
‘6 ; : | é ; further fil 
The manual that comes with this compiler is well put + cetscleae tray Nake 
together. The messages are clearly explained, the com- . 
piler’s unique features are well documented... All in now use DUP and CLOSE 
° . . oe te t eee 
all, F77L is a fine, well supported product that we think ee eae aa fein fas Be 
will do very well in the marketplace. ”’ eed Bees dP XUNEL 100 SOP eae eee 
Computer Language Je pnd Se Te PO eal 
mov xX, ax 3 now close e : ndle 
mov ah, 3eh ; function 3EH = close file 
— i 21h oa f to MS-DOS 
VERSION 2.0 NOW AVAILABLE — $477 int 2th j transfer to MS-DOS | 
; otherwise directory is 
3; updated, continue processing 
Full ANSI FORTRAN-77 : 
Source On-Line Debugger error: . 
Common/Array greater than 64K . 
Lattice C and other 3rd Party Compatibility ; 
my file dw 0 ; handle fram previous “open" 


fname db *"MYFILE.DAT',0O ASCIIZ filespec 


=e 


To order or for more information 


(213) 541-1200 


Lahey Computer Systems, Inc. 
31244 Palos Verdes Drive West, Suite #243 


Rancho Palos Verdes, CA 90274 


Requires MS-DOS and 8087 


MS-DOS and MS FORTRAN are trademarks of Microsoft Corporation 
Pro FORTRAN is a trademark of International Business Machines 


End Listing One 
Listing Two 


page 60, 120 
title Redirected I/O example 


REDIRECT.ASM -—-- An illustration of 
I/O redirection under MS-DOS 2.x or 3.x 





Circle no. 186 on reader service card. Copyright (C) 1985 by Jerry Jankura 


Created: 6 November 1985 
Modified: 9 November 1985 
Abstract: This routine demonstrates redirection of I/O 


from the console to a line printer. The method may be 
used to redirect I/O from any device to any other device. 
Requires Microsoft MS-DOS 2.X or 3.X, or DRI Concurrent 
DOS version 4.1. 


Se Se Se Se Se Se Ge Se Se Se Ne Se Se Se 





STD_IN EQU 0 ; Standard input handle 
STD_OUT EQU 1 ; Standard output handle 
STD _ERR EQU 2 # Standare error handle 
STD AUX EQU 3 ; Standard Auxiliary handle 
STD_LST EQU 4 ; Standard printer handle 
C_WRITESTR EQU 9 7 Write string to STD OUT 
F_DUP EQU 45H ; Duplicate handle 
F_CDUP EQU 46H z Force duplicate handle 
F_CLOSE EQU 3EH 7 Close file handle 
F WRITE EQU 40H 7 Write to file or dev 
P TERM EQU 4CH 3 Terminate a program 
MS DOS EQU 21H 7 MS-DOS service request 
CR EQU ODH 7 Carriage return 
LF EQU OAH 7 Line feed 
’ 
And run 1,000’s of CP/M programs _ taas genet taeas 1 Saas 
up to 30% faster, directly from your CP/M disks! 
How does it work? transform your PC’s floppy Performance? msgl db CR, LF, ‘Redirected I/O example....' 
RUN/CPM virtually trans- drives into CP/M drives able Depending on the applica- db CR, LF 
forms your PC into any of — to directly read, write, and tion, many of your CP/M pro- db CR, LF, 'This example was written using the' 
the most popular CP/M format over 100 CP/M disks! grams will run up to 30% db CR, LF, ‘File I/O system services, with the’ 
systems. A simple replace- Terminal emulation suppor- faster on your PC. Other db CR, LF, ‘file handle being set to STD _OUT.' 
ment of your PC’s 8088/86 ting dozens of the most features include; ability to db CR, LF, ‘STD OUT normally defaults to the' 
microprocessor with our  popularterminals completes run CP/M programs in color, db CR, LF, ‘video screen, so you are reading' 
N.E.C. V-20/30 micro- the transformation of your logical and physical drive db CR, LF, ‘this message on the screen.' 
processor gives your com- PC into a CP/M system. assignments, run CP/M or db CR, IF 
puter the ability to run both8 MS-DOS programs from the 
bit CP/M and 16 bit MS-DOS same prompt. RUN/CPM is msg2 db CR, LF, ‘However, we may direct STD OUT to' 
programs. RUN/CPM will a solution to running CP/M db CR, LF, ‘another device, such as the printer.' 
software on PC's. db CR, LF, 'This message is still written to' 
db CR, LF, ‘STD-OUT, but is appears at the printer.' 
db CR, LF, ‘Again, the operating system provides’ 
Micro Interfaces Corporation ‘ f : 
r6 Gerdes 6824 N.W. 169th Street, Miami, Florida 33015 > ree eg eee ee eee aR 
send check or money Telex aocce INTER CO db CR, LF, iain iuslesiote site eotioeied oo ae 
order (U.S. funds) Ask About Our Intel Operating System Interfaces db CR, LF, ‘of standard devices.' 
add $5.00 shipping/handling. db CR, LF 
OEM, VAR, Dealers, Inquiries Invited : 
msg3 db CR, LF, ‘This message is written on the’ 
ORDERS ONLY db CR, LF, ‘Video screen, demonstrating that' 
db CR, LF, ‘a message may be redirected to the’ 
= = db CR, LF, ‘normal STD _OUT device in the same' 
2 = > CR, IF, ‘manner that was used to redirect' 
Trademarks CPIM (Digital Research inc } 'BM (1BM Corp), RUN/ICPM ( db a = it oe the printer. j 
¢ 


Micro Intertaces Corp ), MS-DOS (Microsoft inc ). INTEL (Intel Corp) 
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db CR, LF, ‘Note also that the initialized data is' 
db CR, LF, ‘stored in the data segnent, rather’ 
db CR, LF, ‘than in the code segment.’ 
db CR, LF 
db CR, LF, ‘Also, the messages are written using' 
db CR, LF, ‘block I/0, so a minimum number of DOS' 
db CR, LF, ‘system services are requested.' 

msg4 tole) 0 

dup handle dw 2 

orig handle dw 2 

datasg ends 

stacksg segment para stack ‘stack' 

mnystack db 512 dup (?) 

stacksg ends 

code segment para ‘code’ 

assume cs: code 

assume ds: datasg 

assume Ss: stacksg 

'. assume es: nothing 


test_redirect proc far - 


Initialize stack pointer and data segment register 
to the correct values. The stack pointer is set 
to the top of the stack segment. The data segment 
is set to the segment of the first variable. Note 
that at this point in time, the DS register does 
not point to the PSP. 


se Se Se Se te Se 


mov sp, 513 ; set up user stack 
mov ax, seg msgl 
mov ds, ax 


First, write a sign-on message to the screen. We 
will attempt to write this message to the standard 
output device. 


Se Se Se 


; ah: INT 21H function id. 
; bx: file handle 
; Cx: # of bytes to transfer 


DS:dx points to message 


mov ah, F WRITE 
mov dx, offset msgl 
mov bx, STD OUT 
mov cx, msg2-msgl 
int MS DOS 


Now, we wish to redirect the output to the 
printer. Before we force the redirection, 
we must make a copy of the standard output 
file handle and store it in the field 
orig handle. 


Se Se Se Fe Se 


mov bx, STD_OUT 

mov ah, F_DUP 

int MS DOS 

mov word ptr orig handle, ax 
mov bx, STD LST 

mov ah, F_DUP 

int MS DOS 

mov word ptr dup handle, ax 


Then, the STD LST handle is set to track 
the STD OUT file. 


se Se 


Mov bx, ax 
mov cx, STD OUT 
mov ah, F_CDUP 
int MS DOS 


Let's write a message out and try it. 
Note that we are still writing information to 
the STD_OUT device. 


se Se Se 


mov ah, F_WRITE 
mov bx, STD OUT 
mov cx, msg3-msg2 
mov dx, offset msg2 
int MS_DOS 


; Now, let's clean up and return everything 
back to its original condition. 


=e 


mov bx, word ptr dup handle 


mov ah, F_CLOSE 

int MS DOS 

mov bx, word ptr orig handle 
mov cx, STD_OUT 
mov ah, F_CDUP 

int MS DOS 

mov ah, F_WRITE 
mov bx, STD OUT 
mov cx, msg4-msg3 
mov dx, offset msg3 
int MS_DOS 

mov ah, P_TERM 

int MS _DOS 


test_redirect endp 
code ends 


end test_redirect 


End Listings 
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-TC-50 subsystem “™ 
ncludes tape drive con- 

ler, cables and docu- 
entation. All ODI 
oducts carry a 30 day 
conditional money-back 
arantee, and are war- 
nted for one year, 
rts and labor. 


Circle no. 192 on reader service card. 


MODULA-2 


DEVELOPMENT BUILDING BLOCKS 


REPERTOIRE, from PMI. High-performance tools. 
Screen display system. Multi-window editor. 
Full source, so your programs can 
follow when you change machines. 

Screen System. 


REPERTOIRE won’t bloat your programs because it doesn’t 
generate code. Create screens exactly as they will look, then 
compress them into one dense, rapid-access file. REPERTOIRE 
lets your program display a screen instantly in any window with a 
single function call. Screens check user input, scroll within 
windows, give context-sensitive help, and conditionally branch to 
other screens using natural-language analysis functions that you 
imbed in the screens. 


Editor. 


REPERTOIRE’s full-screen multi-window editor fits neatly into 


your programs. It lets your users create and edit multiple files 
concurrently. 


High-Performance Low level Routines. 


REPERTOIRE provides improved DOS and BIOS access, 
speaker control, string tools, list handling, and a sample 
directory manager. 


Excellent for educational software or any other screen-intensive 
application. For IBM compatibles. Manual and two 360K 
diskettes. Logitech & ITC versions, $64 each. Both versions for 
$84. Check/MC/VISA. Send for FREE documentation and 
demo disk to find out more. 


4536 S.E. 50th Portland, OR 97206 (503) 293-7706 
PMI MCI Mail: PMI; Compuserve: 74706,262 





Circle no. 239 on reader service card. 
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STRUCTURED PROGRAMMING 


Listing One (Text begins on page 116.) 


{------—---—---—----— Constants and Data Types Needed —----—----- } 
CONST MAX SWITCH = 3; 

MAX ELEMENTS = 100; 

MAX BIN = 30; 

MAX BIN PLUS ONE = 31; 


TYPE Histogram Rec = 


RECORD 
Num Elements : 1..MAX_ ELEMENTS; 
Switch : 1..MAX_ SWITCH; 
Num Bins : 1..MAX_BIN PLUS ONE; 
Count : ARRAY [1..MAX BIN] OF INTEGER; { For output only } 
CASE INTEGER OF 
1 : (Real_Array : ARRAY [1..MAX ELEMENTS] OF REAL; 
Real Bins : ARRAY [1..MAX BIN PLUS ONE] OF REAL); 
2: (String_Array : ARRAY [1..MAX ELEMENTS] OF STRING[80]; 
First Char, Last Char : INTEGER; 
String Bins : ARRAY [1..MAX BIN PLUS ONE] OF STRING[20]); 


(ee ee eet More types. here ———---—--———- +++ —--—— } 
{ 3: (Intg_Array : ARRAY [1..MAX ELEMENTS] OF INTEGER; } 
{ Intg Bins : ARRAY [{1..MAX BIN PLUS ONE] OF INTEGER); } 
{ 4 : (Char_Array : ARRAY [1..MAX ELEMENTS) OF CHAR; } 
{ Char Bins : ARRAY [1..MAX_BIN PLUS ONE] OF CHAR); } 


PROCEDURE Count Histogram(VAR Histogram : Histogram Rec) ; 
{ Pseudo-overloaded histogram counting procedure } 


VAR I, J :INTEGER; 
Found : BOOLEAN; 


PROCEDURE Real Histogram; 
{ Local procedure to count histogram frequency for an array of reals } 


BEGIN 
WITH Histogram DO BEGIN 
FOR I := 1 TO Num Elements DO BEGIN { main loop } 
{ Is element within bin ranges ? } 
IF (Real Array({I] >= Real Bins[1]}) AND 
(Real Array[(I] < Real_Bins(Num_Bins}) 
THEN BEGIN { Locate corresponding bin } 
J := 1; Found := FALSE; 
WHILE (J < Num Bins) AND (NOT Found) DO 
IF (Real _Array[(I] >= Real _Bins(J]) AND 
(Real Array(I]) < Real Bins[J+1}) 
THEN Found := TRUE 
ELSE’ J :s= J. + 1; 
{ END WHILE } 
Count {J} := Count(J] + 1; 
END; { IF } 
END; { FOR I } 
END; { WITH } 
END; { Real Histogram } 


PROCEDURE String Histogram; 
{ Procedure to count histogram frequency for an array of strings } 


VAR Strr : STRING(20]; 
Copy String : STRING(80]; 


BEGIN 
WITH Histogram DO BEGIN 
FOR I := 1 TO Num Elements DO BEGIN { main loop } 

Copy String := String Array[I]; 

Strr := **: { initialize Strr } 

{ Extract portion of string for comparison } 
FOR J := First_Char TO Last Char DO 

Strr := Strr + Copy String[J]; 


{ Is element within bin ranges ? } 
IF (Strr >= String Bins{1]) AND 
(Strr < String Bins[Num Bins)) 
THEN BEGIN 
J := 1; Found := FALSE; 
WHILE (J < Num Bins) AND (NOT Found) DO 
IF (Strr >= String Bins[{J]) AND 
(Strr < String Bins[J+1]}) 
THEN Found := TRUE 
ELSE J 3= J +1; 
{ END WHILE } 
Count [J] s= Count[J] + 1; 
END; { IF } 
END; { FOR I } 
END; { WITH } 


END; { String Histogram } 


BEGIN 
{ Initialize keys } 
FOR I := 1 TO MAX BIN DO 
Histogram.Count[I} := 0; 


CASE Histogram.Switch OF 
1 : Real_Histogram; { Do histogram count for reals } 
2 : String Histogram; { Do histogram count for strings } 
END; { CASE } 
END; { Count Histogram } 


End Listing One 
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Listing Two 


{---—-_—-------——— — Constants and Data Types Needed -—-—-------- } 
TYPE Complex = RECORD 
Is Polar : BOOLEAN; 
CASE BOOLEAN OF 
{ Polar coordinates } 
TRUE : (Modulus, Angle : REAL); 
{ Rectangular coordinates } 
FALSE : (Xcoord, YCoord : REAL); 
END; 


PROCEDURE Add(A, B : Complex; { input } 
VAR C : Complex { ouput }); 
{ Procedure to add two complex numbers taking into account } 
{ their dual presentation. } 
{ local rectangular coordinates } 
VAR( Kil, :X25.-X3, -Yi> ¥2,.-¥3" =. REAL? 


PROCEDURE Get Coordinates (P : Complex; { input } 
X, Y : REAL { output }); 
{ Local procedure to obtain rectangular coordinates } 
BEGIN 
WITH P DO BEGIN 
IF P.Is Polar 
THEN BEGIN 
X := Modulus * COS (Angle); 
Y := Modulus * SIN (Angle) 
END 
ELSE BEGIN 
X := Xcoord; 
Y := Ycoord 
END; { IF } 
END; { WITH } 
END; { Get Coordinates } 


BEGIN 
{ Get rectangular coordinates of A and B } 
Get_Coordinates(A, Xl, Yl); 
Get Coordinates (B, X2, Y2); 


{ Add rectangular components } 
eS oe HL es YS.c= YI ‘+ Y23 


WITH C DO BEGIN 
IF Is Polar 
THEN BEGIN 
Modulus := SQRT(X3*X3 + Y3*Y3); 
Angle := ArcTan(Y3/X3) 
END 
ELSE BEGIN 
Xcoord := X3; 
Ycoord := Y3 
END; { IF } 
WITH } 
} o ite 
End Listing Two 


Listing Three 


(ane Constants and Data Types Needed --------------- } 
CONST MAX_HEIGHT = 100; 
TYPE 
Complex = RECORD Reel, Imaginary : 7 END; 
Stack Rec = 
RECORD 


Switch : INTEGER; 
CASE INTEGER OF 


0 : (Integer type : INTEGER); 

1 : (Real_type : REAL); 

2: (String type : STRING(80]); 
3 : (Complex type : Camplex); 


END; 


Stack = RECORD 


Height : INTEGER; 
Stack_Member : ARRAY [1..MAX_HEIGHT] OF Stack Rec; 
END; 


PROCEDURE Push(VAR Stk Stack; { in/out } 
Element Stack Rec; { output } 
VAR OK : BOOLEAN { output }); 
{ Procedure to push 'Element' in stack } 
BEGIN 
WITH Stk DO BEGIN 
OK := FALSE; 
IF Height < MAX HEIGHT 
THEN BEGIN 
OK := TRUE; 
Height := Height + 1; 
Stack Member[Height] := Element 
END; { IF } 
: { WITH } 
Push } 


END 
END; { 


PROCEDURE Pop (VAR Stk : Stack; { in/out } 
VAR Element : Stack Rec; { output } 
VAR OK : BOOLEAN { Output }); 

{ Procedure to pop ‘Element’ in stack } 

BEGIN 


WITH Stk DO BEGIN 
OK := FALSE; 
IF Height > 0 
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THEN BEGIN 
OK := TRUE; 
Element := Stack Member [Height]; 
Height := Height - 1 
END; { IF } 
END; { WITH } 
END; { Push } 


PROCEDURE Selective Pop(VAR Stk : Stack; { in/out } 
VAR Element : Stack Rec; { in/out } 
VAR OK : BOOLEAN { output }); 
{ Procedure to search for first stack element that matches } 
{ the Switch field in ‘Element’. } 


VAR I, J : INTEGER; 


BEGIN 
WITH Stk DO BEGIN 

OK := FALSE; 

I := Height; 

{ Attempt to locate element of desired type } 

WHILE (I > 0) AND (NOT OK) DO 
IF Element .Switch = Stack Member [I] .Switch 
THEN OK := TRUE 
ELSE I := I - 1; 


IF OK THEN BEGIN { Found one! } 
Element := Stack Member[I]; 
{ Rearrange stack } 
FOR J := I TO Height-1 DO 

Stack Member[J] := Stack Member ([J+1]; 

Height := Height - 1; 

END; { IF } 

END; { WITH } 


END; { Selective Pop } End Listing Three 


Listing FourA 


DEFINITION MODULE HPStackMod; 


EXPORT QUALIFIED 


HPStack, (* Opaque type *) 
Enter, Clst, Add, Sub, Mul, Div, RclLast, GetX; (* Procedures *) 


TYPE HPStack; 


PROCEDURE Enter(VAR Stack : HPStack; (* in/out *) 
X : REAL (* input *))> 
(* Procedure to enter a number in the stack *) 


PROCEDURE Clst (VAR Stack : HPStack (* in/out *)); 
(* Procedure to clear stack and LASTX register *) 


PROCEDURE Add({VAR Stack : HPStack (* in/out *)); 
(* Procedure to add Y and X registers *) 


PROCEDURE Sub(VAR Stack : HPStack (* in/out *)); 
(* Procedure to subtract Y and X registers *) 


End Listing Four A 


Listing Four B 


PROCEDURE Mul (VAR Stack : HPStack (* in/out *)); 
(* Procedure to multiply Y and X registers *) 


PROCEDURE Div(VAR Stack : HPStack; (* in/out *) 
VAR OK : BOOLEAN (* output *)); 
(* Procedure to divide Y and X registers *) 


PROCEDURE RclLast (VAR Stack : HPStack (* in/out *)); 
(* Procedure to recall LASTX register *) 


PROCEDURE GetX(Stack : HPStack (* input *)) :; REAL; 
(* Function to get X register *) 


END HPStackMod. 


Listing Four B. 
IMPLEMENTATION MODULE HPStackMod; 
(* Module implementing scalar-based RPN stack calculator *) 


TYPE HPStackRec = RECORD 

XReg, YReg, ZReg, TReg, LASTX : REAL; 
END; 
(* Exported opaque type *) 
HPStack = POINTER TO HPStackRec; 


PROCEDURE StackDown; 


(*----—- Internal module usage -—--*) 
(* Procedure to roll down Y, Z and T registers *) 
BEGIN 


YReg := ZReg; (* Copy Z into Y *) 
ZReg := TReg (* Copy T into Z *) 
END StackDown; 


PROCEDURE Enter (VAR Stack : HPStack; (* in/out *) 
X : REAL (* input. .*)); 
(* Procedure to enter a number in the stack and push it *) 


BEGIN 

WITH Stack* DO 
TReg := ZReg; ZReg := YReg; 
YReg := XReg; XReg:= X 
END; 
END Enter; 


(continued on next page) 
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CACHE22+ CP/M 2.2 
= CP/M Max! 


CACHE22 is a front-end system pro- 
gram that buries all of CP/M 2.2 in 
banked memory. It helps 8080/Z80 
computers to survive by providing up 
to 63.25K of TPA, plus the ability to 
speed disk operations, eliminate 
system tracks, and run Sidekick-style 
software without loss of transient 
program space. Complete source and 
installation manual, $50.00. 


CP/M is a trademark of Digital Research Inc. 
Sidekick is a trademark of Borland International 


<EN OPTICAL COMPANY 
“53 Abbett Avenue, Morristown, NJ 07960 
(201) 267-1210 





Circle no. 261 on reader service card. 


WORLD’S FIRST 
ASSEMBLER INTERPRETER 


Advanced Trace86™ 2.0 


Create .COM programs with BASIC-like com- 
mands: LOAD, SAVE, EDIT, LIST, RUN. 
Reloadable into AT86, complete with all 
labels, comments & variable names. 


Macro Assembler support-scan .MAP and .LST 
files for labels and variable names 


Full-screen symbolic tracing of any program. 


Powerful conditional breakpoint facilities, 
including hardware ‘‘button” support (if 
installed) 


“Screen save’”’ option, or use dual monitors 
Hex/decimal calculator & converter 

Best 8087/80286/80287 support on the market! 
And more... Priced at $175.00 


To order or request more information contact: 


*»_ Morgan Computing Co, Inc. 


(214) 245-4763 
PO. Box 112730, Carrollton, TX 75O0ll 








Circle no. 128 on reader service card. 
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STRUCTURED PROGRAMMING 


Listing Four B (Listing continued, text begins on page 116.) 


PROCEDURE Clst (VAR Stack : HPStack (* in/out *)); 
(* Procedure to clear stack and LASTX register *) 


BEGIN 
WITH Stack* DO 
XReg := 0.0; YReg := 0.0; ZReg := 0.07 
TReg := 0.0; LASTX := 0.0; 
END; 
END Clst; 


PROCEDURE Add(VAR Stack : HPStack (* in/out *))?7 
(* Procedure to add Y and X registers *) 


BEGIN 
WITH Stack* DO 
LASTX := XReg; (* Save X reg. in LASTX *) 
XReg := YReg + XReg; 
StackDown 
END; 
END Add; 


PROCEDURE Sub(VAR Stack : HPStack (* in/out *));7 
(* Procedure to subtract Y and X registers *) 


BEGIN 
WITH Stack* DO 
LASTX := XReg; (* Save X reg. in LASTX *) 
XReg := YReg — XReg; 
StackDown 
END; 
END Sub; 


PROCEDURE Mul (VAR Stack : HPStack (* in/out *}); 
(* Procedure to multiply Y and X registers *) 


BEGIN 
WITH Stack* DO 
LASTX := XReg; (* Save X reg. in LASTX *) 
XReg := YReg * XReg; 
StackDown 
END; 
END Mul; 


PROCEDURE Div(VAR Stack : HPStack; (* in/out *) 
VAR OK : BOOLEAN (* output *)); 
(* Procedure to divide Y and X registers *) 


End Listing Four B 


Listing Four C 


BEGIN 
OK := TRUE; 
WITH Stack* DO 
IF StackReg{1] <> 0.0 (* Division by non-zero ? *) 
THEN 
LASTX := XReg; (* Save X reg. in LASTX *) 
XReg := YReg / XReg; 
StackDown 
ELSE (* Trouble *) 
OK := FALSE 
END; 
END; 
END Div; 


PROCEDURE RclLast (VAR Stack : HPStack (* in/out *))7 
(* Procedure to recall LASTX register *) 


BEGIN 
WITH Stack* DO 
TReg := ZReg; ZReg := YReg; 
YReg := XReg; XReg := LASTX 
END; 
END RclLast; 


PROCEDURE GetX(Stack : HPStack (* input *)) : REAL; 
(* Function to get X register *) 
BEGIN 
RETURN Stack*.XReg; 
END GetxX; 


END HPStackMod. 


Listing Four C. 


IMPLEMENTATION MODULE HPStackMod; 
(* Module implementing array-based RPN stack calculator *) 


TYPE HPStackRec = RECORD 
StackReg : ARRAY [0..4] OF REAL; 
(* StackReg[{0] is LASTX, StackReg[1] is X Reg *) 
(* StackReg(2) is Y Reg, StackReg[3] is 2 Reg *) 
(* StackReg({4] is T Reg *) 
END; 


, 


(* Exported opaque type *) 
HPStack = POINTER TO HPStackRec; 


PROCEDURE StackDown; 


(*-—----- Internal module usage --—---*) 
Abst Procedure to roll down Y, Z and T registers *) 
IN 


aeeehann ra := oaceeedi oy (* Copy Z into Y *) 
ackReg z= StackR “& * Co rT ® 
END StackDown; as ss) ee ees 
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PROCEDURE Enter(VAR Stack : HPStack; (* in/out *) 
X : REAL (* input *)); 
(* Procedure to enter a number in the stack *) 


VAR I : CARDINAL; 


BEGIN 
WITH Stack* DO 
FOR I := 3 TO 1 BY -1 DO 
StackReg(I+1] := StackReg[I) 
END; 
StackReg(1] := X 
END; 
END Enter; 


PROCEDURE Clst (VAR Stack : HPStack (* in/out *)); 
(* Procedure to clear stack and LASTX register *) 
VAR I ; CARDINAL; 
BEGIN 
WITH Stack* DO 
FOR I := 0 TO 4 DO 
StackReg{I] := 0.0 
END; 
END; 
END Clst; 


PROCEDURE Add(VAR Stack : HPStack (* in/out *)); 
(* Procedure to add Y and X registers *) 


BEGIN 
WITH Stack* DO 
StackReg(0] := StackReg[1]; (* Save X reg. in LASTX *) 
StackReg[{1] := StackReg[2] + StackReg[(1]7 
StackDown 


END; 
END Add; 


PROCEDURE Sub(VAR Stack : HPStack (* in/out *)); 
(* Procedure to subtract Y and X registers *) 


BEGIN 
WITH Stack* DO 
StackReg[(0] := StackReg[1]; (* Save X reg. in LASTX *) 
StackReg[{1}) := StackReg[2] - StackReg[1]}; 
StackDown 
END; 
END Sub; 


PROCEDURE Mul (VAR Stack : HPStack (* in/out *)); 
(* Procedure to multiply Y and X registers *) 


BEGIN 
WITH Stack* DO 
StackReg[0] := StackReg[1]; (* Save X reg. in LASTX *) 
StackReg[{1] := StackReg(2] * StackReg[1)]; 
StackDown 
END; 
END Mul; 


PROCEDURE Div(VAR Stack : HPStack; (* in/out *) 
VAR OK : BOOLEAN (* output *)); 
(* Procedure to divide Y and X registers *) 


BEGIN 
OK := TRUE; 
WITH Stack* DO 
IF StackReg({1] <> 0.0 (* Division by non-zero ? *) 
THEN 


StackReg[(0] := StackReg[1]; (* Save X reg. in LASTX *) 
StackReg[{1] := StackReg(2] / StackReg(1}; 
StackDown 
ELSE (* Trouble *) 
OK := FALSE 
END; 
END; 
END Div; 


PROCEDURE RclLast (VAR Stack : HPStack (* in/out *)); 
(* Procedure to recall LASTX register *) 
VAR I : CARDINAL; 
BEGIN 
WITH Stack* DO 
FOR I := 4 TO 1 BY -1 DO 
StackReg[{I] := StackReg[I-1] 
END; 
END; 
END RclLast; 


PROCEDURE GetX(Stack : HPStack (* input *)) : REAL; 
(* Function to get X register *) 
BEGIN 


RETURN Stack*.StackReg[1]; 
END GetX; 


END HPStackMod. 


End Listings 
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BYSO™ LISP 


A production LISP compiler designed for 
optimum performance on the IBM PC. 


e Includes interpreter — debug programs instantly. 

¢ Compatible with Common LISP and some earlier dialects. 

e Access to all system functions of IBM PC. 

e Complete — has full screen editor, only PCDOS required. 

e Tested and reliable — in use since Aug. ‘84, all known 
bugs fixed. 

e Very fast — does Jul. ‘84 BYTE Sieve test in .8 seconds. 
Other LISPs take 30 to 80 seconds. Garbage collects in 
under a quarter second. 

¢ Visual Syntax™ — an editor written in BYSO LISP 
that displays programs graphically. 

e Fully documented — all features explained, application 
notes given, full source code of Visual Syntax. 

e Not copy protected, preinstalled. 

¢ Generates stand alone code that is royalty free in most 
cases. 

e Priced as a good C compiler, not as a miracle expert 
system. 


Interpreter only, single user license $150. 
Compiler and interpreter, single user license $395. 
Requires 256K, IBM PC or true compatible. 


LEVIEN INSTRUMENT CO. 
Sittlington Hill/P.O. Box 31 
McDowell, VA 24458 

(703) 396-3345 


BYSO is a trademark of Raphael L. Levien. IBM PC is a registered 
trademark of the IBM Corporation. 





Circle no. 252 on reader service card. 


the dBx translator 


daBx produces quality C direct 
from GBASE II or III programs. 


Move dBASE programs to UNIX or other machines. 


Improve program speed and reliability 


Support multi-user/network applications. 
With power guidebook of conversion hints. 


Includes full screen handler and uses your 
current C database manager. 


May be used to move existing programs or help 
dGBASE programmers learn C easily. 


For MSDOS, PCDOS, UNIX, XENIX, Macintosh, AMIGA. 
(Uses ANSISYS driver on MSDOS, CURSES under UNIX) 


Priced from $350, also available from distributors. 


Desktop A.I. 


1720 Post Rd. E. #3 
Westport, CT 06880 7 


(203) 255-3400 
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On oes ee 


THE CLOSEST Bedidondhte TO COMMON LISP OEE FOR YOUR PC 


RICH SET OF DATA TYPES. APPLICATION SUPP EXTENDABILITY 


Bignums, for high precision arithmetic 
8087 support, for fast floating point 
Arrays, for multidimensional data 
Streams, for device-independent i/o 
Packages, for partitioning large systems 
as tdi? Bt sd 


flet, labels, macrolet, for local functions 


if, when, unless, case, cond, for conditionals | 


Keyword parameters, for flexibility 
Multiple-valued functions, for clarity 
Flavors, for object-oriented programming 
Stacks, for coroutining 

Closures, for nba 


7 LARGE COMPLEMENT OF FUNCTIONS | 


Mappers, for functional programming 
format, for output control 

sort, for user-specified predicates 
Transcendental floating point functions 
_ __ String handling functions 

- Over 400 functions altogether 


. eae language ee 


| HARDWARE REQUIREMENTS — 


teen oe __ E mans RAM or more 
FULL SET OF CONTROL PRIMITIVES — 


. U.S. Shipping included for prepaid orders 


Save and restore full environments 
User-specified initializations 


defstruct, to add data types 

Macros, to add control constructs 

Read macros, to extend the input syntax 
Extendable arithmetic system 
Customizable window system 


DEBUGGING SUPPORT 


step, for single-stepping 


IOCLISP ee trace, for monitoring 


; break, for probing 
9'%4’’ diskettes inspect, for exploring 
and manual $300.00 Bt Fieiie 


Ee Flexible error recovery 
Foreign orders add $30.00 for airmail. Customizable pretty- printer 


MSDOS INTERFACE 
Random access files 
Hierarchical directory access 


8088 or 8086 CPU, MSDOS Operating System 


fa Integral Quality 
P.O. Box 31970 SD0S cal 


Seattle, Washington 98103 DOCUMENTATION 
(206) 527-2918 On-line documentation of functions 


Washington State residents add sales tax. apr oe 
VISA and MASTERCARD accepted. 300-page indexed reference manual 





COLUMNS 


The DUP and FORCDUP 
Functions 

S-DOS functions 45H (DUP) and 

46H (FORCDUP) have always 
been considered a little mysterious, 
except perhaps by those program- 
mers who were nurtured under 
Unix. Both functions were added to 
MS-DOS in Version 2.0 at the same time 
as were the “extended file manage- 
ment” functions, and their documen- 
tation is a bit spare. The description 
in the PC-DOS Technical Reference 
Manual for function 45H simply says 
that it ‘returns a new file handle that 
refers to the same file at the same po- 
sition,’ and the explanation for func- 
tion 46H is that it ‘forces the handle 
in CX to refer to the same file at the 
same position as the handle in BX.” In 
actuality, both of these functions are 
much more useful than the docu- 
mentation suggests. 

The DUP function (45H) is particu- 
larly convenient in applications that 
perform extensive file manipulation. 
Normally, the directory entry for a 
file is updated to reflect only the time 
and date last modified and the new 
length (if the file has been extended) 
when the file is closed. If your appli- 
cation extends a file and then crashes 
before closing the file, the new infor- 
mation at the end of the file is left 
floating in the form of lost clusters. 
Therefore, in programs that run for 
long periods, it would seem most 
wise to close and reopen a file when- 
ever its length has been changed. 

Unfortunately, the overhead of an 
open operation in MS-DOS is consider- 


by Ray Duncan 


able, especially if the desired file is at 
the end of a fairly long path and is not 
in the current directory. You can 
avoid the open function altogether 
and still get your desired updating of 
the directory by DUPing the handle 
for the open file and closing the du- 
plicate. The close function turns out 
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to be relatively fast in MS-DOS. See List- 
ing One, page 106, for an example of 
this technique. 

The DUPed handle does subtract 
one from the maximum of 20 simul- 
taneously active handles allowed for 
your process while it is open, but it 
doesn’t count against the total num- 
ber of open handles allowed for the 
system as a whole (the system total is 
set with the files= command in the 
config.sys file and defaults to eight). 

The FORCDUP function (46H) can be 
used to redirect the input/output for 
any handle, previously opened to 
any logical device or file, to any other 
open device or file. The ramifications 
of this seem endless, but I suspect 
FORCDUP’s most common use is with 
the EXEC function to affect the behav- 
ior of the standard devices for child 
processes. Because the open handles 
of the parent program are inherited 
by the child, any desired redirection 
of the child’s input or output can sim- 
ply be put into effect at the parent's 
level before EXEC is called. 

Jerry Jankura has been kind 
enough to donate a program that il- 
lustrates the use of FORCDUP to per- 
form I/O redirection. It accompanies 
this month’s column as Listing Two, 
page 106. 


DOS Two-Point-What? 

Last October, Microsoft released a re- 
vision of MS-DOS that hardly anyone 
has heard of—Version 2.25. 

The main reason for MS-DOS 2.25’'s 
existence seems to be its enhanced 
character set support and interim 
character support, designed for the 
Far East OEMs that must support lan- 
guages such as kanji and Korean. The 
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ASSIGN and LABEL commands were 
added from MS-DOS, Version 3. In ad- 
dition, MS-DOS 2’s DEBUG, SORT, and 
EDLIN commands were replaced by 
MS-DOS 3.x’s versions of the same. 
Many bugs reported in previous ver- 
sions of MS-DOS (2.11 and earlier) were 
fixed. 

Don’t look for this version at your 
corner software store any time soon, 
though. Most U.S. OEMs appear to be 
ignoring it, even though it has less 
bugs, remains memory economical, 
and adds some of the desirable fea- 
tures of MS-DOS 3.x. 


Windows Development Kit 
Since its release late last year, Micro- 
soft Windows has had surprisingly 
good market acceptance and in fact 
has been on the Softsel best-seller list 
for the last month as I write this. Al- 
though Windows is rather slow on 
the original 8088-based PC and is 
nearly unbearable without a hard 
disk, Windows on a PC/AT with an 
EGA is responsive and a pleasure to 
use. Prices for 80286-based PCs and 
fixed disks are decreasing rapidly, so 
it appears that if Windows was be- 
fore its time hardwarewise, it was 
only just a littlek—though any signifi- 
cant penetration into the older PC 
user base will probably require the 
widespread availability of cheap tur- 
bo expansion boards and expanded 
memory boards. 

Because of the dismal fates of Vi- 
siOn and the PC version of GEM (seen 
any of those full-page color ads for 
GEM lately?), I was uncertain wheth- 
er it was worth the time to pay any 
attention to Windows, how it works, 
and the machinations needed to 
write well-behaved Windows appli- 
cations. The preliminary Windows 
development kit I received a year or 
so ago was intimidating to say the 
least, written as it was in the now- 
famous, infinitely self-referencing 
style of Inside Macintosh. To try and 
get some feeling for the future of 
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Windows, I attended Microsoft's 
Windows Developer Seminar in Feb- 
ruary in Seattle. I came away from 
this seminar with a changed outlook 
on Windows and what it portends 
for the future. 

First, there is some confusion in the 
world of programmers about exactly 
what Windows is. Windows is not a 
desktop metaphor user interface like 
the one on the Mac. Icons are used in 
Windows only to symbolize tasks 
that are currently active in memory 
but do not have an open window or 
occasionally to select a resource (such 
as changing from one default disk 
drive to another). Icons are not used 
in Windows to represent and manip- 
ulate objects (files or programs) on a 
disk—you can't erase a file by drop- 
ping an icon in a wastebasket or copy 
a file by dragging an icon from one 
place to another, for example. 

Windows is a multitasking execu- 
tive, running on top of (and closely in- 
tertwined with) MS-DOS, that offers so- 
phisticated memory management, 
dynamic loading and linking of code 
segments, intertask communication, a 
standardized virtual keyboard and 
pointing-device interface, and device- 
independent graphics services. Al- 
though Windows does have pull- 
down menus, tiled windows, scroll 
bars, and dialog boxes, these are in a 
way tangential to the intent and func- 
tion of Windows. A pointing device 
can be used to advantage in Windows, 
but unlike the Mac, you can also get 
along quite nicely without one. The 
fact that well-behaved Windows ap- 
plications will have a rather uniform 
user interface that dramatically short- 
ens the learning curve for new users 
(as do Mac applications) can be viewed 
as just a nifty fringe benefit. 

You are probably saying to your- 
self, ‘‘That all sounds great, but why 
should I as a programmer who uses 
MS-DOS worry about Windows now? 
Why not wait a year or two and see if 
Windows has any significant pene- 
tration of the user base I am con- 
cerned with and then decide wheth- 
er to learn about its innards.’ You 
may be right. On the other hand, Mi- 
crosoft made it clear at the seminar 
that much of the functionality of to- 
day’s Windows (especially the multi- 
tasking and memory management) 
will be migrated downward into the 
MS-DOS kernel in future versions. In a 
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sense, Windows can be thought of as 
a sneak preview of DOS 4 and 5 (in 
fact, the combination of MS-DOS 2 or 3 
and Windows provides everything 
we were hoping for in the expected 
multitasking MS-DOS for the 8086/88- 
based PCs, and then some). 

Windows apparently has even 
more significance for 80826-based 
PCs. Many of us have been a bit ap- 
prehensive about the upcoming Pro- 
tected Mode versions of MS-DOS. Mi- 
crosoft has been quite guarded on 
this topic until now, and the outlook 
has been further confused by leaks 
from IBM that it is developing its own 
Protected Mode operating system 
and by IBM’s recent announcement 
that it is planning to use Digital Re- 
search’s Concurrent DOS on a PC/AT- 
based point-of-sale product. At the 
seminar, Microsoft officials (includ- 
ing Steve Ballmer and Bill Gates) were 
suddenly surprisingly forthcoming 
with details about a Protected Mode 
MS-DOS. This may indicate that the 
major problems connected with this 
product have finally been solved. 

During a panel discussion with 
members of the Windows develop- 
ment team and some outside Win- 
dows application developers, Gates 
asserted that the Protected Mode ver- 
sion of MS-DOS will be completely up- 
ward compatible with current MS- 
DOS versions and applications. 
Programs that are not well behaved 
(such as those that write directly to 
the video refresh buffer) will simply 
be executed in Real Mode and the 
fact that the operating system runs in 
Protected Mode will be invisible to 
them. In a way, this commitment to 
upward compatibility is somewhat 
unfortunate. Programs running in 
Real Mode, even under the control of 
a Protected Mode OS, can circumvent 
the 80286’s mechanisms for protect- 
ing one task from another. 

In other seminar sessions, guide- 
lines were given for writing well-be- 
haved programs under current ver- 
sions of MS-DOS that will be able to 
run in Protected Mode on future ver- 
sions and take full advantage of the 
16-megabyte memory space. 
Ballmer, who has taken much of the 
flack for the many delays in Win- 
dows and was the author of the fa- 
mous ‘“‘before the snow falls” an- 
nouncement, made a startling 
assertion. He said that well-behaved 


Windows applications created with 
the Windows development kit will 
run in Protected Mode on the upcom- 
ing PM version of MS-DOS without re- 
compilation. 

As for its own commitment to Win- 
dows, Microsoft laid it on the line in 
unmistakable terms. The company 
said that all future Microsoft applica- 
tions (not languages) for the IBM PC 
that are not just evolutionary up- 
grades of existing packages will be 
Windows-dependent. Apparently, a 
port of Excel from the Mac to the PC 
is already underway for Windows. 
At first glance, such a policy seems a 
bit rash, but it may not be as risky as it 
sounds. The current Microsoft appli- 
cation packages for the PC (Word, 
Multiplan, and so forth) have been 
quite popular, and their quality is 
high; if future packages live up to the 
same standards, they may prove in 
themselves to be a potent driving 
force for Windows. 

Those of us who attended the semi- 
nar each received a copy of the new 
retail release of the Windows Soft- 
ware Development Kit. This is a for- 
midable package indeed, consisting of 
some 900 pages of typeset documenta- 
tion in two volumes and a fistful of 
diskettes. The 12 floppies hold a spe- 
cial version of Windows with debug- 
ging support, Windows function li- 
braries for C and Pascal, a library of 
macros for the folk determined to 
stick with assembler, an update to cer- 
tain parts of the Microsoft C 3.0 com- 
piler, a special linker, a modified SYM- 
DEB that can be used with an external 
terminal or hooked to the PC’s serial 
port, a dialog box editor, and so forth. 
A diskful of C source code for sample 
Windows applications is also includ- 
ed. Of course, in order to develop 
Windows programs, you must also 
buy the Microsoft C compiler, Pascal 
Compiler, or Macro Assembler sepa- 
rately. 

The manuals for the development 
kit are nicely laid out and typeset but 
consist largely of reference material 
that is extremely dense. Only about a 
quarter of the material gives any 
guidance on the overall program- 
ming of a Windows application, and 
even in that section, it’s rather diffi- 
cult to see the forest for the trees. At 
the seminar, very helpful talks giving 
a more cosmic view were given by 
Microsoft programmers who have 
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Learn and Use AI Technology 


In Your First Evening 
With PROLOG-86 (= 


ont’ 


A complete Prolog Interpreter, Tutorial, and set of Sample Programs: 


|] Modify and write Expert Systems. 
Use the simple ‘‘Guess the animal’’ 
example on the Tutorial or use the 
sophisticated system for Section 318 of 
the US Tax Code written by one of the 
PROLOG -86 authors and published 

in the March, 1985 issue of Dr. Dobb’s 
Journal. 

L) Understand Natural Language 

Use the sample program that produces 
a dBase DISPLAY command as output. 


LJ] Write Symbolic Math or Abstract 
Problem Solving Applications 

This is a complete Prolog program to 
convert from Farenheit to Centigrade: 
f_to_c(C,F):- C is(F-32) *5/9. Planning 
programs and games are included to 
help you learn. 


L] BECOME FAMILIAR WITH 
PROLOG IN ONE EVENING. 


Programming experience is not required, but a logical mind is. 


Prolog-86 Plus for $250 adds: Windowing, 8087, 640K memory access, random access 
files, strings support and definate clause grammar. 


RECENT IMPROVEMENTS: Floating point support, MSDOS commands, on-line 


help, load Editor. 


AVAILABILITY: All MSDOS, PCDOS systems. 


ystems” 


335-D Washington St. 
Norwell, Mass. 02061 
617-659-1571 


800-821-2492 





Circle no. 153 on reader service card. 


LEARN LISP 





Interactively and Write Real Programs 


with TransLISP for Only $75 


A “COMMON LISP”’ compatible Tutorial, Interpreter, Debugging, and 
Pretty Printer plus a Fast, Full Screen Editor, Samples and Help 


LJ Start Easily and Quickly: 

A complete, modular tutorial helps you 
learn LISP at your own pace. An in- 
tegrated, interactive environment provides 
all of the elements needed to enter, modify, 
analyze and debug programs. 


_] Natural Language, Expert Systems and 
Symbolic Manipulation: 


Natural Language concepts are illustrated 
by a phone number retrieval program. 
Choose the best word processing program 
for you with the Expert System. Arithmetic 
expressions are translated to Assembler using 
a code generation program. 


L] Write Realistic Programs: 

Short examples and substantial programs of 
about 10 pages in length help you learn by 
modifying, studying and using the key con- 
cepts needed to write programs of 1000 
lines or more. 


[] The ‘COMMON LISP”? Standard: 
TransLISP includes a 300+ function 

subset of the “COMMON LISP”? Standard. 
Use extras like the MSDOS interface and 
graphics. Or use ‘‘strict compatibility’ to 
make programs written in TransLISP, 
upwardly compatible to work with other 
COMMON LISP systems like VAX LISP, 
GC/LISP or LISP Machine LISP. 


Recent Improvements: 640K Memory use supports 12000 line programs. 
Full 8087 and 8086 floating point included. 
Runs on any MS/PCDOS System with 256K. It is not copy protected. 











“The best LISP I’ve ever used. Three times before, I tried to learn LISP, but until now I could 
never break through the surface.’’ 


W.L. Whipple, User 


335-D Washington St. 
Norwell, Mass. 02061 
617-659-1571 

800-821-2492 
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been working within the Windows 
environment for two years or more 
and an additional volume of proceed- 
ings, programming guidelines, de- 
bugging examples, and sample 
source code was given to each attend- 
ee. Taken together, these remove 
much of the start-up fright factor 
from coding for Windows. If you are 
considering or embarking on a Win- 
dows-specific application, I’d highly 
recommend that you sign up for one 
of the scheduled developer’s semi- 
nars—it will save you dollars and 
hours in the long run. 

At this time, the ante for program- 
mers who want to work with Win- 
dows is high. By the time you add up 
the cost of a PC/AT with 512K RAM, a 
hard disk and an EGA (the develop- 
ment configuration I would recom- 
mend), the Windows development 
kit, the Microsoft C compiler, and 
possibly a trip to Bellevue or Boston 
to attend the Microsoft Windows 
classes, you are talking about a lot of 
money. And if you aren't a C pro- 
grammer, youre largely out of luck 
for the present. The Pascal and as- 
sembler support for Windows devel- 
opment seems rather half-hearted at 
best, and there are no bindings at all 
for FORTRAN, COBOL, or BASIC compil- 
ers. 

If Microsoft is really committed to 
get Windows moving among soft- 
ware developers, I have a few sug- 
gestions for things it could do rela- 
tively quickly: release a Windows- 
specific version of BASIC similar to 
Mac BASIC; release a low-cost set of 
QuickBASIC bindings to Windows; re- 
lease a lower cost, simplified Win- 
dows development kit for C pro- 
grammers; and release a Turbo 
Pascal Windows toolkit. All these 
things should be priced around $100 
to remove them from the “I wonder 
if I can talk my company into buying 
this’’ category and put them in the 
MasterCard/Visa, impulse-buy cate- 
gory. Of course, I am writing this in 
February, so when you read this in 
June, some lower-cost developer 
products may already be history. 

The development kit can be or- 
dered directly from the Microsoft Te- 
lemarketing Group [(800) 426-9400] 
and currently costs $500. 
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Building Overlays 
Dr. Glenn Roberts of the Mitre Corp. 
responded to David Rabber’s request 
for information on the overlay capa- 
bility of the Microsoft linker (Decem- 
ber 1985 column). He writes: ‘““We ob- 
tained Version 3.01 of the Microsoft 
linker as part of the Microsoft C com- 
piler package. This version of the link- 
er supports overlays and the follow- 
ing information on it is condensed 
from the Microsoft documentation. 
“You specify overlays in the list of 
modules that you submit to the linker 
by enclosing them in parentheses. 
Each parenthetical list represents 
one overlay. As an example, if the fol- 
lowing were your response to the 
‘Object Modules’ prompt: 


Object Modules [.OBJ): 
at+(b+o)+le+fM+g+W 


then (b+c), (e+ f), and i are overlays. 
‘Some pertinent notes: 


¢ Overlays are loaded into the same re- 
gion of memory, so only one can be 
resident at a time. 

«Duplicate names in different over- 
lays are not supported, so each mod- 
ule can occur only once in a program. 
¢ The linker replaces calls from the 
root to an overlay and calls from an 
overlay to another overlay with a 
software interrupt, followed by the 
module identifier and offset. The de- 
fault interrupt for calling this overlay 
manager is 03FH. 

¢The names of the overlays are ap- 
pended to the EXE file, and the name 
of this file is encoded into the pro- 
gram so that the overlay manager 
can access it. If the manager cannot 
find this file, it will prompt you for 
the file’s name. After you've supplied 
the name, you can later swap disks in 
the associated drive. The overlay 
manager will detect this when it 
needs an overlay that is on a disk that 
has been removed and will prompt 
you to replace the disk and ‘strike 
any key when ready.’ 

«The overlay manager is smart 
enough to search the current path 
for the EXE file. 

e Control to overlay modules must be 
passed through far call/return se- 
quences because the linker finds 
these and replaces them with the 
overlay interrupt. This rules out the 
use of indirect calls across overlays 
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via pointers. 

¢You can change the default inter- 
rupt used to call the overlay manager 
using a switch on the linker: 


/ OVERLAYINTERRUPT:number 
where number can be 0—0FFH. 


“T should mention that I haven’t ex- 
perimented with the overlaying capa- 
bilities of this linker. I’ve merely stat- 
ed, in condensed form, the 
information in the Microsoft docu- 
mentation. ’”’ 


Another Resource for 
Programmers 

The Programmer’s Journal, edited by 
Robert Keller, is rapidly developing 
into a sort of modern-day equivalent 
of the original Dr. Dobb’s Journal of 
Computer Calisthenics and Orthodon- 
tia. Casual and gossipy, yet stuffed 
with useful information, it definitely 
deserves a look. Contact the maga- 
zine at P.O. Box 30160, Eugene, OR 
97403; (503) 484-2162. 


DDJ on CompuServe 

One of the Data Libraries (DL2) on the 
CompuServe DDJ Forum is devoted to 
the 16-Bit Software Toolbox, and most 
of the program listings published 
here in the last year or so are already 
available for downloading. If there 
are particular programs from farther 
back in the history of this column that 
you would like to see placed on the 
DL, please let me know. Also, I'd like 
to encourage everyone to use the DDJ 
Forum to send me comments, sugges- 
tions, criticisms, and programs. I guar- 
antee quick response! 


DDJ 
(Listings begin on page 106.) 
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Instant-C: 
The Fastest 
Interpreter for C 


Runs your programs 50 
to 500 times faster than 
any other C language 
interpreter. 


ny C interpreter can save you compile 
and link time when developing your 
programs. But only Instant-C saves 
your time by running your program at 
compiled-code speed. 


Fastest Development. A program 
that runs in one second when compiled 
with an optimizing compiler runs in 
two or three seconds with Instant-C. 
Other interpreters will run the same 
program in two minutes. Or even ten 
minutes. Don’t trade slow compiling 
and linking for slow testing and debug- 
ging. Only Instant-C will let you edit, 
lest, and debug at the fastest possible 
speeds. 


Fastest Testing. Instant-C immedi- 
ately executes any C expression, state- 
ment, or function call, and display the 
results. Learn C, or test your programs 
faster than ever before. 


Fastest Debugging. Instant-C gives 
you the best source-level debugger for 
C. Single-step by source statement, or 
set any number of conditional break- 
points throughout your program. Errors 
always show the source statements 
involved. Once you find the problem, 
test the correction in seconds. 


Fastest Programming. Instant-C 
can directly generate executable files, 
supports full K & R standard C, comes 
with complete library source, and works 
under PC-DOS, MS-DOS, or CP/M-86. 
Instant-C gives you working, well- 
lested programs faster than any other 
programming tool. Satisfaction guar- 
anteed, or your money back in first 

31 days. Instant-C is $495. 


Rational 


Systems, Inc. 
P.O. Box 480 
Natick, MA 01760 
(617) 653-6194 
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COLUMNS 


n this column dedicated to Pascal, 

Ada, and Modula-2—descendants 
of the ALGOL language—I will discuss 
language and implementation issues 
as well as applications written in 
them. The livelihood of any column 
draws from readers’ interaction. 
DDJ’s CompuServe forum is an excel- 
lent place for fast feedback and dia- 
logue; the U.S. mail is the slower alter- 
native. You are invited to share your 
tips, tricks, and programming 
techniques. 

In this issue I'll discuss two topics. 
The first part of the column deals 
with simulating overloaded proce- 
dures and functions in Pascal and 
Modula-2. The second part looks at 
exporting opaque types and data hid- 
ing in Modula-2. 


Overloading Procedures 

An overloaded procedure or func- 
tion is one that exists simultaneously 
in several different versions within 
the same program. This allows you to 
use the same procedure call with sev- 
eral different kinds of arguments. An 
example of this is the Pascal intrinsic 
Writeline( ), which can take any 
number of arguments with many dif- 
ferent data types. Unfortunately, Pas- 
cal and Modula-2 do not allow you to 
write overloaded routines explicitly 
because youre not allowed to create 
two functions or procedures with the 
same name in the same code body. 

A Modula-2 program can import 
different libraries that may contain 
procedures with the same name. 
Thus you can import an entire li- 
brary and use the overloaded proce- 
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dure prefixed with the library name. 
Consider, for example, two library 
modules RealInOut and (a fictitious) 
LongRealInOut that take types REAL 
and LONGREAL, respectively, and 
both contain a procedure called 
WriteReal( ). To use the overloaded 
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WriteReal( ) procedure, you can call 
RealInOut.WriteReal( ) or LongRealIn- 
Out.WriteReal( ). Because the two 
procedures called WriteReal are in 
different modules, the Modula-2 
compiler is able to accept them. 

Variant records provide a way to 
create ‘‘simulated” overloaded pro- 
cedures. The simulation stems from 
the fact that there is really only one 
copy of the procedure. Admittedly, a 
bit more effort is required to make 
such procedures readable. The vari- 
ant parts of a record enable the pro- 
gram to tackle different data items 
varying in basic type or number. I'll 
use three examples. The first over- 
loads a routine that handles arrays of 
different basic data types. In this 
case, the macro structures are similar 
or identical but the micro structures 
are different. The second case deals 
with representing the same informa- 
tion with alternate notations. The 
third case shows a stack containing 
data structures of several types. 

The first example (see Listing One, 
page 108) shows a Pascal procedure 
to perform a histogram count. In gen- 
eral, the input is an array of data 
items accompanied by an array of 
perfectly sorted histogram bin limits 
Each_bin limit gives the upper and 
lower bounds for the values to fall 
within one of the output slots of the 
histogram. This gives the flexibility 
that the histogram bin sizes need not 
be equal.-Data values lying outside 
the histogram limits are ignored. The 
procedure Count_Histogram is capa- 
ble of handling arrays of REAL as well 
as arrays of STRING data types. For 
the latter type, the variant records 
supply additional information. They 
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include two integers that mark the 
first and last characters (within each 
string) of the substrings to be used for 
the bin comparison. Notice that the 
Count array is the only output in the 
variant record. Procedure Count— 
Histogram has its own local proce- 
dures to perform the frequency 
count for each different data type. 
You can easily add similar proce- 
dures to handle arrays of integers or 
characters. 

Similar routines can be written to 
implement various searching and 
sorting techniques. In a future col- 
umn I will discuss generic sorting. 
Generic routines provide a flexible 
solution to handle a wider variation 
in data types. 

The second example, shown in 
Listing Two, page 108, looks at the sit- 
uation in which information can be 
represented by alternate notations. 
You can represent a complex num- 
ber (that is, a point on a two-dimen- 
sional graph) either by using rectan- 
gular coordinates (x and y) or by 
polar coordinates (modulus and an- 
gle). Thus you can have two sets of 
data each consisting of two REAL 
numbers. To process the information 
you must know what sort of coordi- 
nates are supplied. Listing Two 
shows a simple Pascal procedure to 
add two complex numbers. Each of 
the numbers can be supplied to the 
procedure as rectangular or polar co- 
ordinates, indicated by the Is_Polar 
field. Similarly the output can be ob- 
tained in either coordinate system. 
The example can be extended to sys- 
tems of three or more dimensions. 

The third example presents a stack 
that handles a variety of data types. 
Here, the differently typed items are 
more logically related. Compared 
with the histogram count example in 
which different data types are han- 
dled in parallel, this one handles 
them in series. 

The fields of the variant portion 
contain the same number of identifi- 
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ers; only the types are different. List- 
ing Three, page 108, shows three Pas- 
cal routines to push, pop, and 
selectively pop stack items. The na- 
ture of stack and queue manipula- 
tions permits them to accept multi- 
type data in certain applications. 
Notice that the variant record con- 
tains user-defined record structures. 
You can add more variant fields 
without changing the code for the 
procedures. Unordered lists (single- 
and double-linked) can be construct- 
ed in a similar manner. 


Exporting Opaque Types 
and Data Hiding 

An opaque data type is one that in- 
cludes no representation of the inter- 
nal structure of the data. An example 
is the type REAL, the internal struc- 
ture of which (the exponent and 
mantissa, along with their signs) is 
not available to the programmer. The 
Modula-2 feature of exporting 
Opaque types and data hiding (some- 
times referred to in Modula-2 books 
as data abstraction) has been with us 
all along, but originally it was a luxu- 
ry only compiler writers enjoyed. It 
was impossible for us to use a data 
type exported from another module 
or library without explicitly stating 
its internal structure. Now this situa- 
tion has changed with developments 
in software and hardware, and Mo- 
dula-2 offers similar privileges to li- 
brary module developers. This is 
done by having the definition mod- 
ule state the exported data type name 
only, with no structure definition. 
Hence, the opaque type is born. The 
implementation module has the 
complete type definition along with 
all the routines to manipulate it. Mo- 
dula-2 requires that opaque types be 
defined as pointers to other data 
types. The client programs importing 
the opaque types do not have access 
to their internal structure, and thus 
they cannot have their own proce- 
dures to manipulate the opaque 
types. The library developer is re- 
sponsible for providing every rou- 
tine needed! 

By hiding the internal structure of 
an opaque type, library authors can 
modify it, and the procedure bodies, 
without affecting client programs. 
They may want to do this for a vari- 
ety of reasons, such as prototyping or 
discovering a superior or more con- 
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venient alternate structure. 

Applications for exporting opaque 
types are numerous. The simplest ex- 
ample is string libraries. Table 1, 
below,-shews-foeur-alternative defini- 
tions for an opaque string type. The 
first three string types use a finite ar- 
ray to store characters. The fourth 
type uses true dynamic dimensioning 
by employing the imported type 
ADDRESS. 

The type string1 is straightfor- 
ward. The implementation proce- 
dures must rely on ASCII zero code as 
the string terminator for partially 
filled strings. The type string2 incor- 


porates a string length counter. Using 
it along with the predefined HIGH( ) 
function, which returns the upper 
bound of the character array, the ap- 
propriate string lengths are man- 
aged. Exporting this type as transpar- 
ent may cause problems with user- 
written procedures that corrupt the 
length counter, and thus the use of an 
opaque type in this situation is more 
attractive and justifiable. The third 
type is a slight modification of 
string2, adding a total string counter. 
Ford and Wiener! discuss this string 
type and point out that the structure 
uses the total length field dynamical- 


CONST MaxLength = 255; (* or any other length, up to 65535 *) 


(“Alternative#1*) 
TYPE string! = POINTER TO RECORD 
strch : ARRAY [0..MaxLength] OF CHAR 


END: 


(* Alternative # 2 *) 
TYPE string2_ = POINTER TO. RECORD 
long : CARDINAL; 


strch : ARRAY [0..MaxLength] OF CHAR 


END: 


(* Alternative # 3 *) 
TYPE string3 = POINTER TO RECORD 
long, 


TotalLength : CARDINAL; 


strch : ARRAY [0..MaxLength] OF CHAR 


END: 
(* Alternative # 4 *) 


(* Note: ADDRESS type is imported from module SYSTEM *) 


TYPE string4 = POINTER TO RECORD 
long, 


TotalLength : CARDINAL; 


strch : ADDRESS 
END: , 





Table 1: Alternative Modula-2 opaque string structures 


(* Matrix may have negative indices *) 

TYPE Matrix! = POINTER TO RECORD 
FirstRowlindex, 
LastRowindex, 
FirstColumindex 


LastColumindex : INTEGER; 
(“ ADDRESS is Imported from SYSTEM *) 
MatrixMember : ADDRESS 


END; 


(* Matrix with zero or positive indices *) 
TYPE Matrix2 = POINTER TO RECORD 
LastRowindex , 
LastColumindex : CARDINAL; 
(*“ ADDRESS is Imported from SYSTEM *) 
MatrixMember : ADDRESS 


END; 





Table 2: Dynamic opaque matrix structure 
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ly. The ALLOCATE( ) procedure is 
used instead of NEW( ) to accomplish 
the above task. Employing ALLOCATE 
forces the run-time system to create a 
dynamic structure according to the 
actual record size, which may be 
smaller than the maximum allowa- 
ble size. The fourth string type dif- 
fers from the others in that none of its 
fields is an array of characters. Like 
string3 it contains fields to keep track 
of the current string length and the 
total size is dynamically allocated. 
The field of type ADDRESS is the 
pointer that locates the actual charac- 
ter string. The advantage of type 
string4 is the creation of strings with 
tailored sizes. 

Another example of alternative 
representation is complex numbers, 
discussed earlier. It is possible to have 
two library implementation modules: 
one for rectangular coordinates, the 
other for polar coordinates (see Ford 
and Weiner: 177). Because opaque 


types are involved, procedures to cre- 
ate and return the real and imaginary 
parts of a complex number must be 
supplied to client programs. 

Modula-2 supports only one-di- 
mensional open arrays in procedure 
arguments. Ford and Wiener present 
a dynamic matrix library exported as 
an opaque data type. The matrix is 
defined as a pointer to a record that 
contains the upper and lower dimen- 
sion limits and an identifier of type 
ADDRESS, as shown in Table 2, page 
117. This structure allows you to cre- 
ate matrices tailored to size, although 
speed is on the slow side. 

Other popular data structures such 
as binary and B-trees can also be ex- 
ported as opaque types. Multiway 
trees such as the B-tree, B+ Tree, B* 
Tree,2 and B++ Tree® examples of 
complex data structures. Library da- 
tabase developers may start by ex- 
porting a B-tree structure as an 
opaque type. Hiding the exact struc- 
ture gives them the ability to select 
one of the above structures or imple- 
ment their own refinements, which 
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may involve adding more pointers or 
resizing the B-tree page. One problem 
generally encountered with such 
data types occurs when you perform 
I/O with files. As the data structure 
changes, the new library version 
must be able to identify and read pre- 
vious structures saved in files. 

The simple example presented in 
Listing Four, page 109, deals with a 
module exporting procedures to sim- 
ulate a basic RPN calculator with four 
stack registers (X, Y, Z, and T) and a 
LASTX register, similar to a Hewlett- 
Packard calculator. Parts A, B, and C 
of the listing show the definition mod- 
ule and the two implementation mod- 
ules, respectively. In part B the stack is 
formed by five scalar identifiers, 
whereas part C shows an array repre- 
sentation. The zeroth member corre- 
sponds to the LASTX register, the first 
to the X register, and so on. It is inter- 
esting to note that, while using the ar- 
ray representation, a FOR loop can be 
used to push and pop the stack. The 
scalar representation is more read- 
able, however. The HPStackMod 
module exports four basic opera- 
tions—number entry, stack clearing, 
recalling LASTX into the X register, 
and a function to return the X regis- 
ter. The latter function, which may 
seem extremely trivial, is neverthe- 
less essential because of the use of an 
opaque type to represent the stack. 


An Invitation 

I encourage you tosend me short util- 
ity routines or programs that per- 
form useful tasks—for example, tap- 
ping into hardware and operating 
systems. I’m also looking forward to 
the validation of the IBM PC/AT Ada 
compiler by Alsys Inc. Obtaining a 
copy of this will help my discussions 
about the language. 


Notes 

1. G. Ford and R. Wiener, Modula-2: A 
Software Development Approach 
(New York: John Wiley & Sons, 1985). 
2. M. Loomis, Data Management and 
File Processing (Englewood Cliffs, 
N.J.: Prentice-Hall, 1983). 

3. N. Shammas, ‘“‘B+ trees, B+ + 
trees, and statistics in AI,’ Computer 
Language, 2 (6) (1985): 13 — 18. DDJ 
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Writing in C? Half your job could be done already. With 
PforCe”" The first library of object-oriented C functions 
and subsystems. Written in C. Fully integrated, opti- 
mized, debugged, and ready to go. 

High level functions that let you manipulate objects 
like windows. Fields. Screens. Menus. Change an 
object’s characteristics globally. Or tailor them to a 
specific application. So you can write code faster. And 
more economically. 

Low level functions to give you complete hardware 
control. Defaults you can change at will. Plus, more 
sophisticated subsystems to handle complex tasks. A 
database system with demand paging and B-trees to 
store, access and index data. And, since PforCe includes 
source code, you can modify anything in the library. 

But that’s not all. PforCe is more than a 
program-generation toolbox. It’s designed to 
make things easy to find and use. Alphabeti- 
cally. By functional group. Or, while you’re 
editing through a pop-up utility. And PforCe 
comes with an easy to follow tutorial to help 
you become more productive quickly. 

PforCe is available for Microsoft® Lattice® 
CI86"" and Wizard™ compilers. All memory 
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y PforCe Be With You. 











models of each compiler are supported. You can use 
PforCe with any supported compiler by re-compiling 
the source code, but we provide a pre compiled 


version for the compiler that you specify at order time. 
S475 complete. 


Special Introductory Offer. 

You would have to spend $700-S800 on several 
libraries to get the range of functionality provided by 
PforCe. But we want you to be convinced. 

Order before June 15, 1986 and save an additional $80 
on the regular price of $475. Special offer $395. 

Send for your PforCe information kit today. Call or 
write: 

Phoenix Computer Products Corporation 
320 Norwood Park South 

Norwood, MA 02062 

(800) 344-7200. 

In Massachusetts (617) 762-5030 
Programmers’ Pfantasies™ 

by 


Programmers’ Pfantasies and PforCe is a trademark of Phoenix Computer Products Corporation. Microsoft is a registered trademark of Microsoft Corporation. Lattice is a registered trademark 
of Lattice, Inc. C186 is a trademark of Computer Innovations. Wizard is a trademark of Wizard System Software. 
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Corporations today face 
the same problems that 
motivated the Department 
of Defense (DOD) to create a 
standard programming 
language and eliminate the 
proliferation of languages 
and dialects that contribute 
to astronomical software 
upkeep costs, estimated at 
80 percent of total systems 
maintenance. Mandated 
for all DOD mission-critical 
applications, the Ada pro- 
gramming language is ex- 
pected to have increasing 
importance for all com- 
mercial applications. His- 
torically, the lack of com- 
pilers has inhibited the 
widespread use of Ada. 

An Ada compiler for the 
IBM PC/AT from Alsys en- 
ables full-scale Ada applica- 
tion programs to be written 
for the PC. Through the use 
of protected (virtual) mode, 
the compiler permits an ap- 
plication program to over- 
come the 640K limitation 
imposed by the DOS operat- 
ing system and to access ex- 
tended memory (up to 16 
megabytes on the PC/AT). 
The compiler is packaged 
with a 4-megabyte memory 
board. It also features 8086 
or 80286 instruction, an on- 
line help facility, and error 
checking. The compiler for 
the IBM PC/AT is priced at 
$3,000. 

Tartan Laboratories 
has developed a C pro- 
gramming language com- 
piler for the IBM PC/RT. 
Both an Ada and a Modula- 
2 compiler for the IBM PC/ 
RT are currently under 
development. 

An Ada compiler system 


for the IBM PC, PC/XT, PC/ 
AT, and compatibles is 
available for $895 from Ar- 
tek Corp. The compiler 
system meets virtually all 
the latest DOD specifications 
except ‘‘tasking’’ and runs 
under the MS-DOS or PC-DOS 
operating system on PC- 
compatible computers hav- 
ing at least 384K of memo- 
ry. Hard-disk mass storage 
is recommended for the de- 
velopment of large applica- 
tions. Demonstration disks 
are offered for $29.95. The 
full system is available to 
buyers of the demonstra- 
tion disk for $29.95 less than 
the regular price. 


Artificial 
Intelligence 
Microsoft’s LISP 5.1 offers 
more primitives, greater 
capacity, expanded arith- 
metic, improved debug- 
ging, and faster list sorting 
than do earlier versions. It 
also features common LISP 
support and split-screen 
capabilities. Minimum sys- 
tem requirements for Ver- 
sion 5.1 are a PC running 
MS-DOS or PC-DOS 2.0 or lat- 
er, 128K of memory (al- 
though Microsoft recom- 
mends at least 256K), and 
one disk drive (two are rec- 
ommended). It has a sug- 
gested retail price of $250. 

OPS83, the high-perfor- 
mance expert systems pro- 
gramming language from 
Production Systems 
Technologies, is available 
for use on the IBM PC and 
compatibles. This version 
of OPS83 is identical to the 
original version intro- 
duced in 1984 for use un- 
der VMS and Unix on the 
VAX series machines and 
Apollo Domain. Recently, it 
has been made available 
for use on the MicrovAx, 
Sun Workstation, and 
AT&T's 3B series. It retails 
for $1,950. 





An integrated systems 
development environment 
for planning, analyzing, 
designing, and construct- 
ing computer-based infor- 
mation systems is available 
from KnowledgeWare. 
Called the Information En- 
gineering Workbench, this 
software family uses ex- 
pert system and computer- 
aided design and program- 
ming techniques’ to 
automate information en- 
gineering. The new family 
includes an integrated set 
of diagramming tools for 
several common diagram 
types, including entity, de- 
composition, data-flow, 
and action diagrams. 


C Language 

Raima Corp. has an- 
nounced Version 2.1 of 
db_Vista, its database man- 
agement system for soft- 
ware development in the C 
programming language. It 
is designed for use with MS- 
DOS or Unix-like operating 
systems. The new version 
features improved B-tree 
key field handling; a key- 
file rebuild utililty; a data- 
base consistency check util- 
ity; a data-field alignment 
check utililty; and file- 
transfer utilities for dBASE, 
R:base, and ASCII files. The 
db_Vista multiuser version 
costs $990 with source and 
$495 without source. The 
single-user version is avail- 
able for $495 with source 
and $195 without. 

High C, a C cross compil- 
er implemented for VAX/ 
VMS running on the Intel 
8086/88/186/188/286 fam- 
ily of microprocessors, is 
available from Microtec 
Research. High C features 
support for ROMable code 
for embedded applica- 
tions, nested functions 
complete with up-level ref- 
erences, nested functions 
passable as parameters, a 


full set of memory models, 
three integer ranges, and 
three IEEE real precisions. 
The product also contains 
many compiler controls 
and options, including one 
for strict ANSI standard 
checking. The complete 
High C software package 
costs $7,000 and operates 
on DEC VAX under VMS. 

Computer Innovations 
has released a free booklet 
on its Optimizing C86 C 
compiler. The features of 
the C86 discussed include 
language conformance, 
Unix compatibility, and 
source-level debugging sup- 
port. The booklet also fea- 
tures a complete listing of 
run-time options and func- 
tions. 

Fast Programming from 
Subject, Wills & Co. is a C 
generator tool for business- 
application developers. 
The product includes a B+ 
tree index facility, a field- 
independent record man- 
agement system, a com- 
plete set of run-time 
utilities, a library of C rou- 
tines, and several C pro- 
gram generators. Fast Pro- 
gramming sells for $995 for 
a site license. It is available 
for PC-DOS and Xenix on the 
IBM PC/AT and Unix V on 
the AT&T 3B2/3B5 comput- 
er line. 

Version 2.0 of Bastoc 
from JMI Software Con- 
sultants translates BASIC 
programs into C. Bastoc an- 
alyzes the use of numeric 
variables to determine 
which floating-point vari- 
ables can be replaced by in- 
teger variables. Additional 
optimizations include 
eliminating unreachable 
code; converting BASIC as- 
signment statements, 
where possible, into sim- 
pler increment or decre- 
ment operations available 
in C; and evaluating string 
expressions at compile 
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time. The product includes 
a BASIC compiler program. 
Binary versions are avail- 
able for the IBM PC and 
compatible systems using 
MS-DOS, the AT&T 3B2 (Unix 
V), the AT&T Unix PC/3B1 
(Unix V), the Radio Shack 
Model 16 (Xenix), Sperry 
5000 (Unix V), and several 
additional Unix and Unix- 
like systems. The price for 
single-user systems is $495. 


Application 
Development 

Version 6 of Netron’s com- 
puter-automated program- 
ming development soft- 
ware for the Wang VS 
includes a feature that al- 
lows automatic control of 
in-house screen design 
standards for file-mainte- 
nance programs. The new 
version also adds back- 
ground processing from 
user-defined function keys 





and supports use of quali- 
fied data names. The pro- 
gram includes a built-in 
standard ANSI 74 COBOL 
and is suitable for running 
production systems of any 
size and complexity. 

The Oasys 68020 Toolkit 
features a.complete line of 
compilers (C, Pascal, FOR- 
TRAN-77), assemblers (in- 
cluding linker, loader and 
librarian), debuggers, sim- 
ulators, profilers, real-time 
OS, and down-line load 
utilities. Support for the 
68881 floating-point pro- 
cessor is also provided. The 
Toolkit is available for DEC 
VAX (VMS, Ultrix, Unix), DEC 
MicroVAx (VMS, Ultrix), 
Sun, Apollo, Pyramid, PCs, 
and other 68000 and 32000 
systems running Unix. A 
typical configuration of a C 
compiler, assembler, link- 
er, and librarian starts at 
$3,200 in single quantities. 


3930 Freedom Circle, Suite 101, Santa Clara, CA 95054 
Mailing Adoress: P.O. Box 60337, Sunnyvale, CA 94088 


Wa Microrec 
W778 RESEARCH 
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Release 5.0 of STSC’s 
APL*Plus PC System adds 
speed to the development 
process with its APL lan- 
guage notation. The run- 
time version is an adapta- 
tion of the APL*Plus PC 
system specially modified 
to run a single application. 
This modified interpreter 
enables developers to in- 
clude enough of the APL- 
*Plus system to run their ap- 
plications but not enough to 
allow end-users to write or 
modify their own APL pro- 
grams. The run-time sys- 
tem is licensed on a royalty 
or per-copy basis. 

Release One, Version 
3.06, of Q’Nial from Nial 
Systems is a high-level in- 
teractive interpreter that 
handles symbolic and nu- 
meric computation with 
equal facility. It is used pri- 
marily in logic program- 
ming and other artificial 


intelligence applications. A 
Q'Nial license costs $300 for 
PC/XT/AT versions. The en- 
tire package, including me- 
dia and shipping, costs 
$375. Educational licenses 
are half-price. A site li- 
cense for educational insti- 
tutions costs $500. 


For the IBM PC 

DSD86 from Soft Advances 
is a full-screen symbolic de- 
bugging program for IBM 
PC-compatible computers 
running PC-DOS or MS-DOS. 
DSD86 offers a built-in win- 
dowing system for a user- 
controlled screen layout 
with six different display 
types, including instruc- 
tions, registers, stack, mem- 
ory, and source. The key- 
board interface can be 
customized, permitting ar- 
bitrary command lines to 
be bound to any Ctrl, Alt, or 
function key. A recursive 
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macro facility allows con- 
sistent extensions to the set 
of 45 commands provided 
by DSD86. The list price is 
$69.95. 

Programmers for the 
IBM System/38 computer 
can write and edit RPGIII 
source code on an IBM- 
compatible personal com- 
puter using the Baby/38 
Source Entry Utility (SEU), a 
software package from 
California Software 
Products. Baby/38 SEU 
emulates the System/38 
source entry utility to pro- 
vide full-screen editing 
without the expense of Sys- 
tem/38 hardware. Moving 
editing functions off-line to 
a PC frees the System/38 
for other tasks and permits 
programming to continue 
even if the system is down. 
Baby/38 SEU requires an 
IBM or fully compatible PC 
with a minimum of 384K 
memory, DOS 2.0 or later, 
parallel printer port, and 
dual-floppy or floppy- and 
hard-disk drives. 

Applied Data Research 
has released Version 2.0 of 
ADR/PC Datacom, a PC- 
based query and report 
writing facility. PC Data- 
com supports the ex- 
change of data between an 
IBM PC and a mainframe as 
well as other PC functions. 
The new version features 
PC-based query creation 
and host data download 
and upload, a full-function 
report writer, data export 
and import for the ex- 
change of data between PC 
spreadsheets and other ap- 
plication software, and a 
procedure facility for unat- 
tended and_ repetitive 
tasks. The product oper- 
ates on any standard IBM 
PC, PC/XT, or PC/AT com- 
puter using PC-DOS 2.0 or 
later. It requires a mini- 
mum of 512K memory and 
two dual-sided, floppy-disk 
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drives or a hard-disk drive. 
The IBM 3270 PC is also sup- 
ported and requires 640K 
of memory. 

Flagstaff Engineering 
has announced three prod- 
ucts—File Connection, 
Word Connection, and 
Tape Connection—for 
data/text transfer to and 
from the IBM PC or compa- 
tibles. File Connection is a 
34%2-, 514-, and 8-inch disk 
subsystem that interfaces 
to a PC and allows users to 
transfer files from many 
different systems. Word 
Connection allows trans- 
fers between different 
word-processing systems, 
such as Displaywriter, La- 
nier, OS/6, NBI, Wang, Xe- 
rox 860, CPT, Microsoft 
Word, Multimate, and 
WordStar. The Tape Con- 
nection is a half-inch mag- 
netic tape drive interface 
that allows transfer of files 
from a PC to tape and back. 

Maxit, a memory card 
with software that expands 
available memory on an 
IBM PC, PC/XT, PC/AT, or 
compatible computer, is 
available from McGraw- 
Hill Software. Maxit re- 
quires DOS 2.0 or later and 
can fill out the memory of 
the IBM PC/AT, taking it 
from 512K to 640K and be- 
yond. Maxit is priced at 
$195. 

Hallock Systems has an- 
nounced three enhance- 
ments to its Pro68 product 
line. DOS68 is a PC-DOS-com- 
patible operating system 
designed for use on the 
Pro68 or Pro68/10 co- 
processor cards. It is avail- 
able for use with C, Pascal, 
Forth, BASIC, and FORTRAN. 
The system sells for $150. 
Pro68/10 is a single printed- 
circuit card that can be in- 
stalled in any full-size PC, 
PC/XT, or PC/AT bus slot. 
The card includes a 68010 
microprocessor running at 
12 MHz, up to 1,024K of on- 
board 16-bit parity-checked 
memory, provisions for a 6- 


MHz math processor, two 
serial I/O channels, a 16-bit 
680x0 expansion bus, and a 
proprietary dual-ported PC 
bus interface. Pro68/10 is 
available in two configura- 
tions, costing from $1,995 
for the 512K version and 
from $2,195 for the 1,024K 
version. RTX68 is a time- 
sliced multitasking execu- 
tive that supports up to 256 
concurrent tasks. Each task 
is assigned one of 256 possi- 
ble priority levels that can 
be changed during run 
time on a dynamic basis. 
RTX68 is designed to run 
concurrently with the host 
system PC-DOS. It is avail- 
able for $150. 

The IBM PC-compatible 
RS-232 514-inch Floppy Data 
Storage and Transfer Sys- 
tem is available from Ana- 
log & Digital Peripherals. 
It features host and/or 
manual controls, ASCII or 
full binary operation, baud 
rates switch selectable 
from 110 baud to 19.2K 
baud, and automatic data 
verification. It is available 
in 110 VAC stand-alone or 
OEM configurations. The 
stand-alone system is 
priced at $1,095. 


Communications 

Quadram has launched its 
MainLink line of micro-to- 
mainframe communiCca- 
tions solutions with four 
3278/79 emulation prod- 
ucts. Two of the products, 
the MainLink Standard co- 
axial connection and the 
MainLink Plus coaxial con- 
nection, link directly to an 
IBM 3274 or 3276 cluster 
controller for local or re- 
mote processing. Both are 
Irma compatible. They are 
also equipped with soft- 
loaded microcode, permit- 
ting upgrades to be made 
with a floppy disk. The 
MainLink Standard remote 
and MainLink Plus remote 
attach via synchronous 
modem to an IBM 3705, 
3725, or equivalent com- 


munications controller in 
SNA/SDLC mode. Both per- 
mit emulation of an IBM 
3274 cluster controller and 
3287 host-addressable 
printer. The four products 
retail as follows: MainLink 
Standard coaxial, $895; 
MainLink Plus coaxial, 
$1,145; MainLink Standard 
remote, $545; MainLink 
Plus remote, $985. 

SoftCraft has a new re- 
lease of its Btrieve file man- 
agement software for the 
IBM PC/AT and compatibles. 
Btrieve 4.0 and Btrieve/N 
4.0 (for multiuser and LAN 
systems) feature variable- 
length records, data en- 
cryption, password protec- 
tion, and a file-level verify 
option. Both are for soft- 
ware development in BA- 
SIC, Pascal, COBOL, C, FOR- 
TRAN, Modula-2, and APL. 
They cost $245 and $595, 
respectively. 

Network-OS 6.0, a Net- 
bios-compatible, network 
operating system, supports 
DOS 3.1, all major network 
topologies, and Novell file 
and record locking. Avail- 
able from CBIS, Network- 
OS is menu-driven, and 
commands are presented 
on hierarchical, pull-down 
screens. LAN resources are 
addressed by user-defined 
object names and mapped 
by mouse or keyboard. The 
retail list price of Network- 
OS is $995. Interface boards 
cost $295. 

Lamar Micro has devel- 
oped a 65C02 cross assem- 
bler program for the Atari 
520 ST on Atari format disk. 
This program, called C02 
Cross Assembler, allows 
the Atari to act as a soft- 
ware development system 
for Apple, Atari, and Com- 
modore computers that 
use the 6502 or 65C02 mi- 
croprocessor. The price of 
the program is $89.95. 

TDI Software has re- 
leased a Modula-2 for the 
Commodore Amiga. The 
software features full in- 


Dr. Dobb’s Journal, June 1986 


terface to ROM Kernal, In- 
tuition and AmigaDOS, 32- 
bit native code 
implementation, support 
for transcendental func- 
tions and real numbers, 
separate compilation of 
modules with version con- 
trol, Code statement for in- 
line assembly code, and the 
ability to locate and identi- 
fy errors in source code. 
The Modula-2 comes in 
regular and developer's 
versions. The developer's 
version has an extra disk 
containing all the defini- 
tion module sources, a 
symbol file decoder, link 
and load file disassemblers, 
a source file cross-refer- 
encer, the kermit file- 
transfer utility, and the 
source code for several of 
the Amiga modules. The 
retail price of the regular 
version is $89.95; the devel- 
oper's version is $149.95. 
Peachtree Technology 
has introduced the T-33e 
Back-Up Subsystem. The T- 
33e utilizes the existing ex- 
ternal floppy port on any 
IBM PC, PC/XT, PC/AT, or 
compatible. It is MS-DOS- 
compatible and can back 
up 30 megabytes. An LED 
readout provides users 
with tracking, power, and 
drive information and of- 
fers self-diagnostic capabil- 
ities, including an on-board 
error-detection device. The 
T-33e retails for $795 and 
comes with two 10-mega- 
byte reels. It also comes in 
an internal half-height 
configuration that retails 
for $695. 
Mastercom-Telecommu- 
nications Utility is a smart- 
terminal and file-transfer 
utility available for the IBM 
PCjr and most IBM PC-DOS- 
and CP/M-80-compatible 
computers. Mastercom, 
available from The Soit- 
ware Store, is designed to 
capture data onto a disk 
and/or printer, send files, 
and transfer files using the 
Christensen XMODEM er- 
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ror-correcting protocol. It 
includes auto-dial, auto-an- 
swer, host-mode unattend- 
ed operation, batch-file 
transfer, directory display, 
file erase, file rename, disk- 
drive logging, stored re- 
sponses, and more. 

Samsung Semiconduc- 
tor has introduced two 
families of high-perfor- 
mance CMOS logic prod- 
ucts: the 54/74 Advanced 
High-Speed CMOS and the 
54/74 High-Speed CMOS. 
The two product families 
contain 63 devices, includ- 
ing octal buffers, octal 
transceivers, octal latches, 
and inverters. They also 
feature low power dissipa- 
tion, high levels of noise 
immunity, low input cur- 
rents, wide operating volt- 
age supply and tempera- 
ture ranges, 4,000V ESD 
protection, and the ability 
to handle latchup trigger 
currents above 200 ma. 

The Epsilon Extension 
Language from Lugaru 
Software is an interpret- 
ed, dynamically linked ex- 
tension language that re- 
sembles C, augmented 
with functions and vari- 
ables to facilitate writing 
editor extensions. It fea- 
tures source code for all 
commands, unlimited file 
size, an on-line tutorial, an 
EMACS-style command set, 
language support, com- 
mand-name and file-name 
completion, and full DOS 
path support. Epsilon’s 
price is $195. 

Watcom Products has 
released Maple, an interac- 
tive system for algebraic 
computation. Maple pro- 
vides diagnostic and de- 
bugging facilities and sup- 
ports two output formats: 
two-dimensional, multi- 
line format and one-di- 
mensional, line-printing 
mode. It is available for IBM 
VM/SP CMS, Digital VAX/ 
VMS, and Unix (4.2BSD) for a 
yearly license fee of $1,400 
for commercial users. 


C CODE FOR THE PC 


source code, of course 


— Se 
Concurrent C . 
Coder’s Prolog in © 
LEX 
WACO @- PREP =. icveces 
Small-C compiler for 8088 
tiny-c interpreter & shell . 
Xlisp 1.5a & tiny-Prolog 
C Tools 


The Austin Code Works 
11100 Leafwood Lane 
Austin, Texas 78750-38409 
(512) 258-0785 


ree shipping on prepaid orders No credit cards 
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DeSmet C 


now with 32-Bit Pointer Option 
still $109 


The editors' choice for fast compilation and execution. The 
price/performance winner in all major C benchmarks since 
1983. Includes Compiler, Assembler, Binder, Librarian, 
Execution Profiler and Full Screen Editor. Supports both disk 
and memory resident Overlays. Contains both 8087 and 
Software floating point support. Full STDIO library. 


Large Case Option 


Makes a great C Compiler even better. Adds 32-Bit Pointers to 
C88 so you can utilize all of your PC. Groups scalar and static 
data for fast access. Supports the D88 debugger. 


Gain most of the benefits of an interpreter while losing none of 
the run-time speed of the C88 compiler. Display C source and 
variable contents during execution. Set breakpoints by function 
name or line number. Examine and set variables by name using 
C expressions. 


order direct from: 


C Ware Corporation 
505 W. Olive, Suite 767, Sunnyvale, CA 94086 U.S.A. 
(408) 720-9696 — Telex: 358185 
We accept VISA, MasterCard & American Express 
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Programming the 


65816 Microprocessor 
including 6502 and 65C02 | 


if you're a C programmer (or want to be one), we 
speak your language. Subscribe to The C Journal 
today, and start increasing your productivity right 
away. We give you information you can use on any 
machine — IBM PC™, UNIX™-based, Macintosh”, or 
CP/M™ — micro, mini, or mainframe. 


@ in-depth reviews and feature articles — C com- 
pilers, editors, interpreters, function libraries, 
and books. 

e hints and tips — help you work better and 
faster. 

e interviews — with software entrepreneurs that 
made it — by using C. 

@® news and rumors — from the ANSI standards 
committee and the industry. 


Limited Time Offer 


Join our thousands of subscribers at the Discount 
Rate of only $18 for a full year (regularly $28)! Call 
us now at (201) 989-0570 for faster service — don't 
miss a single issue of The C Journal! 


Please add $9 for overseas airmail. 


Trademarks — CP/M: Digital Research Inc. IBM PC: IBM 
Corp. Macintosh:AppleComputercCorp. ThecC Journal: 


InfoPro Systems. UNIX: AT&T Bell Labs. 
infoPro Systems {[...... 
Denville, NJ 07834 a 
(201) 989-0570 
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White Sciences’ Icon 
Builder software allows the 
generation of graphics im- 
ages that can be printed, 
overlayed on a digitizing 
tablet surface, and used to 
augment the limited key- 
board space in the con- 


| struction of icon-oriented 


user interfaces to applica- 
tion programs. Icon Builder 
is composed of four soft- 
ware modules: a graphics 
program, a template editor, 
a template install program, 
and an overlay print pro- 
gram. It retails for $79.95. 

BMC Software's Data 
Packer II is a second-gener- 
ation IMS utility that pro- 
vides multiple database 
compression options. Data 
Packer II reduces DASD 
space requirements, often 
by more than 75 percent, 
thereby reducing the 
many direct costs affected. 
by DASD needs and high 
transaction levels. The 
product is available at 
$25,000 for a perpetual 
lease on the first CPU. 

RM/COBOL from Ryan- 
McFarland Corp. is a GSA- 
certified implementation of 
the ANSI X3.23 74 COBOL 
standard. It is available un- 
der an OEM's custom oper- 
ating system or under stan- 
dard systems. RM/COBOL 
features an indexed file-ac- 
cess method, record- and 
file-level locking, full arith- 
metic capability, and inter- 
active screen-handling 
capabilities. 

XTree, Version 2.0, from 
Executive Systems is de- 
signed to simplify file and 


| directory handling by pro- 


viding single keystroke 
commands to access, de- 
lete, rename, view, move, 
list, or show files within 
any directory on a floppy 
and hard disk. Version 2.0 
requires an IBM PC or PC/AT 
with 19K of memory and 
MS-DOS 2.0 or PC-DOS. The 


program retails for $49.95. 

The Sibec-II, a single- 
board microcontroller, is 
available from Binary 
Technology. Sibec-II fea- 
tures the 8052-AH CPU with 
full floating-point BASIC. 
The auto baud rate RS-232 
connector allows users to 
connect a terminal and be- 
gin programming. The unit 
is available for $295. 
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Transform Your Programs 


Mt) k ream with 
. CPP—C Preprocessor Plus 


Includes ALL features of the standard C preprocessor.23% 

¢ Define arbitrarily complex macros with #define command. 

e Include and nest files to any depth with #include command. 

¢ Include lines with #if, #ifdef and #ifndef commands. 

e Define multiple constants with #enum command. 

e Optional extra feature: Imbed formatting or other commands 
in your source code. (Lines starting with . or « are ignored.) 


e 30 times faster than the Preproc 
Journal. 
e Can be used for any language, including assembler. 


® Can be used as a stand-alone macro/include processor. 

© Code can be used as the lexical analyzer for parsers or 
assemblers. 

C Oo m pl et e Ses SR eee a tatetetetetetetetete’ Ss his takers 

e You get complet in standard C. 

e You get everything you need to use CPP immediately. 

¢ CPP is unconditionally guaranteed. If for any reason you are 
not satisfied with CPP, your money will be refunded promptly. 


Price: $95. Call or write today: 

Edward K. Ream 

1850 Summit Ave., Dept. DD 

Madison, WI 53705 

(608) 231-2952 

TO ORDER: Specify both the operating system (MS-DOS, CP/M 80 or CPM 68K) 
and the disk format (8 inch CP/M or the exact type of 5% inch disk). Send a check or 
money order for $95 ($105 for foreign orders). Foreign checks must be denominated 
in U.S. dollars drawn on a U.S. bank. Sorry, do NOT accept phone, credit card or 
COD orders. Please do NOT send purchase orders unless a check is included. 
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ATTENTION COBOL USERS 
THE COBOL SHOP 


QUALITY PRODUCTS FROM TOP MANUFACTURERS 

e The Latest in Compilers and Tools for 
Dos, Netware, Xenix, Unix, Cics, Ims 
and More 

e Applications Generators 


e Relational DBBMs, SQL, 4GL 


e Forms, Maps, Editors, Debuggers, File 
Management Systems 


Best Products, Best Prices, Best Support 
Call or Write: 
(713) 641-3440 


P.O. Box 672 
Richmond, TX 77469 
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Barriers Were 
Made To Be Broken 


If you're using Turbo Pascal, Turbo Extender 
is the software you need to break the 64K 
barrier. Now write programs as long as you 
need, limited only by available RAM. 


LARGE CODE MODEL 


Write programs using all 640K without 
overlays or chaining. Convert existing 
programs with minimal effort. Offers 
advanced dynamic binding or standard 
EXE files. 


MAKE FACILITY 


Offers separate compilation. No starting from 
scratch for source code changes. 


LARGE DATA ARRAYS 


Automatically manages data arrays up to 
30 megabytes, as well as arrays stored in 
expanded memory. 


ADDITIONAL TOOLS 


Overlay Analyst, Disk Cache, Pascal 
Encryptor, Shell File Generator, and File 
Browser. 


TURBO EXTENDER 


Includes 2 DSDD disks, complete source 
code, 150 page printed manual. Requires 
Turbo Pascal 3.0 and PCDOS 2.x or 3.x. 
Runs on IBM PC/XT/AT and compatibles. 
Call for MSDOS support. $85 COMPLETE. 


ALSO AVAILABLE 
TURBOPOWER UTILITIES 


Bruce Webster, in BYTE Magazine, February 
1986, named it Product of the Month, saying 
“If you own Turbo Pascal, you should own 
TurboPower Utilities, that’s all there is to it.” 


It offers 9 programs in all, including the 
Program Structure Analyzer which locates 
subtle coding problems the compiler fails to 
catch. It also produces reports that describe 
your code, providing cross reference and 
hierarchy diagrams. Also includes Execution 
Timer, Execution Profiler, Pretty Printer, 
Command Repeater, Pattern Replacer, 
Difference Finder, File Finder and Super 
Directory. 


TURBOPOWER UTILITIES 


Come compiled, ready to use. Includes 
manual, reference card, three DSDD disks, 
complete source code. Requires Turbo 
Pascal 2.0 or 3.0. $95 with source code; 
$55 executable only. 


GET BOTH TURBO EXTENDER AND 
TURBOPOWER UTILITIES (Source) $149 


MC/VISA CALL TOLL-FREE 7 days a week 
(US) 800-538-8157 x830 

(CA) 800-672-3470 x830 ForPO, COD, 
Dealers, Info, Brochures — call or write: 


LUR3e 


™M 
INTERNATIONAL REPRESENTATIVES 


Switzerland: Software Haus 064-512651 

Japan: Southern Pacific Ltd. 045-314-9514 
Norway: Polysoft 03-825275 

England: Grey Matter Ltd. 0364-53499 

Australia: Videogram Communications 02-627-1261 


























































478 W. Hamilton #196 
Campbell, CA 95008 
(408) 378-3672 

M-F 9AM-5PM PST 
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VEDIT”® Plus Text Editor 


———— The Navy charts new 
concepts with it...GM 
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Every day, VEDIT PLUS helps thousands of 
programmers, writers and engineers get 
down to business. 
So why do people who could have ANY 
text editor prefer ours? For a lot of reasons, 
including: 
¢ CAPACITY—With VEDIT PLUS, file size is 
never a problem. And virtual disk buffering 
simplifies editing of even the largest files. 

¢ FLEXIBILITY—VEDIT PLUS lets you edit up 
to 37 files simultaneously. So you can cut 
and paste. Edit programs. Edit text. Even 
perform numerous search/replace functions 
in several files without user intervention.* 

¢ CUSTOMIZATION—With VEDIT PLUS, you 
can create your own on-line editing func- 
tions with keystroke macros. Develop your 
own on-line help screens. Determine and 
revise your own keyboard layout easily. 


Vi : 
CompuView® Products Inc., 1955 Pauline Boulevard—Suite 300, Ann Arbor, Michigan 48103, TELEX 701821 


Available for PC DOS, MS-DOS, CP/M, CP/M-86. 
*Free sort, compare, print and main menu macros included; optional 8080-8086 translator or mailmerge, $50 each. 





e SPEED—VEDIT PLUS not only works hard, 
it works fast. Faster, in fact, than any other 
text editor on the market. 

e EXPERIENCE—Six years ago, CompuView 
revolutionized the concept of microcom- 
puter text editing. And we've been improv- 
ing Our products and services ever since. 


Special Offer: Order a VEDIT PLUS 
text editor for $225 and we'll include 
our V-PRINT™ document formatter— 
a $120 value—absolutely free. 


Call CompuView today at 
313/996-1299. You'll be in good 
company. 
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SWAINE’S FLAMES 







acy two ye 7 

shed a review of Borland’s 
4 Turbo Pascal; within the next 
two months we expect to review 
Turbo Prolog, assuming we get the 
product in time (the editor’s perenni- | 
al lament). When I finish this column 
7 intend to drive to Scotts Valley and — 


request a copy in person. That some- 


times works. | 
Column? you ask, fipping oe 
back issues, asking your fickle memo- 
ry what was on this page before. Cer- 
tainly not this column with a goofy 
photo of the editor-in-chief posed 
ce Peter Norton. What are ~ do- | 
ing. to DDJ now? — | 
_ Glad you asked. This is a. a 
new column, written by me, Mike | 
Swaine, editor-in-chief, a column 
born of the need to have new editor 
Nick Turner and me flame in parallel 
(he gets the editorial page) and of the 
desire to put an opinion column on 
the last page like many other vos 
_zines do. 
Oh, fine. Now DDJ will start sound- 
ing like InfoWorld. Ersatz Dvorak, 
right? Well, no; I hope this will be a 
DDJ-type back-page column, dealing 
with DDJ-type issues from a DDJ-type 
perspective. If the styles of other col- 
umnists influence this column, they 
will be the the columnists who influ- 
enced me in my formative years. 
I read and enjoyed John Camp- 
bell’s convention-challenging editori-_ 














































als in Analog Science Fiction maga- | 


zine even after I grew up and learned | 
that they were sophomoric and 
slightly cracked. I was permanently 
warped by Martin Gardner’s rich, 
witty, and diligently researched 
Mathematical Games column in SCI- 
entific American, and | imitated it ina 
puzzle column of my own on the 
back page of InfoWorld for a year or 
so. More recently, I liked Hal Harden- 
bergh’s quirky column-that-ate-the- 
newsletter in DTACK Grounded, but I 
don’t have room here to imitate Hal. 
What will this column cover? The 
usual stuff: significant new software 
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products, books, trends, phenomena. 
I admire Jon Bentley's Programming 
Pearls in Communications of the ACM, 
which have been collected into a 
book also titled Programming Pearls 
(Reading, Mass.: Addison-Wesley, 
1986). Bentley has staked out as his 


domain insight and creativity in pro- 


gramming. Fertile ground, which he 
tills like a native. I think his is the best 
new computer book of 1986. 

A good column should stimulate its 
readers to think, not try to think for 
them. I don't, for example, know the 
significance of Microsoft's decision 
not to support .COM files in future 
versions of DOS (beyond the fact that 
it’s a repudiation of DOs's illegitimate 
descent from CP/M), but I suspect 
there may be ramifications that Mi- 
crosoft hasn't considered. 

A good column asks questions, but 
not just the most obvious ones. Will 
Borland sell hundreds of thousands 
of copies of Turbo Prolog? Maybe, but 
what would it signify if it did? Oddly, 
despite the fact that Pascal and PRO- 
LOG are from different planets, the 
experience of Turbo Pascal could 
provide an idea of how Turbo Prolog 
will be received—breathless reviews 
in the computer press, reckless 
spending by under-informed com- 


puter owners, confusion over the sig- 


nificance of the PROLOG language, 


_mistaking a good user interface for 


product depth. Turbo Prolog could 
be absurdly successful for reasons no 
less absurd. And yet, the effect on 
professional software development 
could turn out to be negligible. 
Finally, I hope to tell about the 








work of an enterprising software de 
veloper with a genuinely new ide. 
each month. Take my cousin Corbet 
who, having lost his shirt in the so 
ware look-alike market when his lin 
of software (called Look and Fee 
Ware and marketed under the Ka 
vin Klone label) ran up against som 
stiff competition, hit upon one o 
those ideas that leave you speechless 
with awe. 

Corbett’s latest line of products 
called Tomorrow's Software. Tomo! 
row’s Software does nothing excep 
display so-far-unused icons, shape 
and colors on the screen. Corbett's v 
sionary idea is to stake out new visu 
metaphors in order to collect roya 
ties from people who will later lear 
what to do with them. The hall-close 
metaphor. The hero-sandwich met 
phor. The sheep-entrails metaphor. I 
think he’s onto something. Just yes- 
terday he called to tell me that he’d 
found a color that had never been 
put to functional use on the comput- 
er screen, and he was applying for a 
patent on its use. The big question is 
whether he can sue Steven Spielberg 
over his use of the color purple. 2 

Yeah, but what’s this Borland busi- 
ness? you ask, ignoring the last two 
paragraphs. If Turbo Prolog may 
have only negligible significance for 
software developers, why review it 
in a software developer’s magazine? — 
Well, what I really suspect is that Bor- 
land is onto something. I think it’s just © 
possible that Turbo Prolog will be sig- 
nificant in the history of software, © 
but it will be so only if Borland is suc- 
cessful in getting it quickly into col- 
lege classrooms and only if the ae : 
uct is good. | 
So if you'll excuse me, I'm off to 
Scotts Valley. 

Late news dept.: Dvorak makes bold 
move to PC Magazine. 


Yi hae! Scale 


Michael Swaine 
editor-in-chief 
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The first open-ended 
multi-user software system 
that integrates your 
custom application with 

a full range of standard 
business programs. 


The A-to-Z™ Integrated System for MicroVAX II™ and MicroPDP-11™ 
Now you can integrate any number of your custom multi-user appli- 
cations with word processing, graphics, spreadsheet, data manage- 
ment, accounting, and thousands of VAX™ and PDP-11 programs. Same 
menus, commands and files with no need for a system manager. 


Tell me about A-to-Z on MicroVAX™ and MicroPDP-II™ (] Reseller LJ Developer 


Name Title 
Company Phone 
Address 


City State Zip 
Send to: Digital Equipment Corporation, Inquiry Dept., fi i Fy i Q Ey fl 
NRO2-1/H3, 444 Whitney Street, Northboro, MA 01532. 


© Digital Equipment Corporation 1986. Digital, the Digital logo, A-to-Z, MicroVAX II, MicroPDP-11, and VAX are trademarks of Digital Equipment Corporation. DD686 


AUPPAUGE 







iAUPPAUGE. stasted-earn- 
lel ing a fast reputation with 

their 87 Math Pak, the 
combination of an 87 chip and 87 
Software Pak that’s been accelerat- 
ing PC math since 1982. 

Next came their racy 287 
FAST/5, a math coprocessor mod- 
ule with its own 5MHz clock, speeding up PC/AT math 
by 25%. (Pictured above. ) 


Now, Hauppauge Unveils the 287 FAST/8A... 

Our newest math coprocessor for the PC/AT, the 287 
FAST/8A moves out at 8MHz—doubling the speed of 
each floating point math operation. The FAST/8A accel- 
erates AutoCad, 1-2-3, Symphony, Turbo Pascal, Frame- 
work and more. The FAST/8A also runs in PC/AT 
compatibles including the Compaq Deskpro 286, Sperry 
PC/IT and TI Business-Pro computers. 


ev aW ide Vaele cay elec ol ae (oy Om One 

Designed to steal the heart of programmers, the 87 Soft- 
ware Pak supports IBM’s BASIC Compiler 1.0 and 2.0, 
and Microsoft’s QuickBASIC; executing math-intensive 
programs up to 20 times faster! The 87 Software Pak also 
performs FFT’s and Matrix operations. For example, a 
PC (or PC/XT) with an 87 Chip and 87 Software Pak 
can perform a 512-point complex FFT in just 1.1 seconds. 
What’s more, a PC/AT with a FAST/8A inverts a 25 by 


25 element matrix in under | second. 
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Is Getting A Fast Reputation, 


HAUPPAUGE Math Coprocessors 
287 FAST/8A 8MHz math coproces- 


287 FAST/5 5MHz math coprocessor 
for PC/AT and compatibles........ $249 


287 Chip PC/AT math coprocessor— 
runs at 4MHz in PC/AT........... $219 


re Y a ie elee eee er for IBM 


ed 


87-2 Chip Math coprocessor for 8MHz PC compatibles...$195 


HAUPPAUGE Math Coprocessor Paks 

87 Math Pak V.6.0 87 chip and math coprocessor software 
support for IBM BASIC Compiler 1.0, 2.0 and Microsoft’s 
QuickBASIC. Plus, Matrix and FFT support, one year of free 


updates, complete source code and “8087 Applications and 
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87 Software Pak V.6.0 Math coprocessor software support 

as in the 87 Math Pak, but without 87 chip.................. $180 
AV (ita ate TaNiad @ F-ltlo)or-\ileomm uit-lae Mee) 0) cele ac 0) ann nnn $150 

Recale ++ Math coprocessor support for 1-2-3 version 1A ..$ 95 
AV (Ta Wee Te Nia w El t lo) ey: lilerelm ttle 0 Wee) 0) c0(e. 1.0) anne $ 49 

HFT + Complete Hayes Fourier Transform Package ....... $125 
With any Hauppauge math coprocessor .......-----+++++++- SAS) 


The 287 FAST/8 Doubles Your PC/AT’s Math Speed! 
Help your PC/AT get a fast reputation with Hauppauge’s 
new 287 FAST/8A. Call today, or contact your local 
computer dealer to learn more about Hauppauge’s racy 
product line. And ask for “87 Q & A} our free booklet 


on math coprocessors. 


Hauppauge Computer Works, Inc. 

358 Veterans Memorial Highway, Suite MSI, 
Commack, New York, USA 11725 ¢ 516-360-3827 
Available at your local computer dealer 
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sor for PC/AT and compatibles ....$379 
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